Como identificar componente do TabSheet

Pessoal eu estou usando o seguinte código para criar abas no TabSheet, cada aba vem com um TSynMemo (é tipo um memo, mas faz parte do pacote SynEdit)

var

 TabSheet: TTabSheet;
 Editor: TSynMemo;
 i: integer;

 i := pgcControleDeAbas.PageCount;
 TabSheet := TtabSheet.Create(pgcControleDeAbas);
 TabSheet.Caption := '* Novo arquivo ';
 TabSheet.Name := 'Aba' + IntToStr(i + 1);
 TabSheet.PageControl := pgcControleDeAbas;
 pgcControleDeAbas.ActivePage := TabSheet;

 Editor := TSynMemo.Create(TabSheet);
 TWinControl(Editor).Name := 'Editor' + IntToStr(i + 1);
 Editor.Align := alClient;
 TWinControl(Editor).Parent := TabSheet;
 Editor.Clear;
 Editor.SetFocus;

Eu quero alterar o OnChance de cada novo TSynMemo criado, como posso fazer isso? Ou pelo menos obter o nome de cada componente, ou até mesmo manipular cada componente por si... Alguém tem uma solução?