Problem z zdarzeniami w dynamicznie tworzonym SynMemo

Witam.
Mam problem, generuje sobie TSynMemo na komponencie TTabSheet i do zdarzenia OnChange (w SynMemo) przypisuje procedurę którą napisałem

procedure TForm1.EventOnChange(Sender:TObject);
begin
 if GetCurBar.Name <> '' then begin
  GetCurBar.Panels[0].Text:=Format('X:%d Y:%d',[GetCurMemo.CaretX,GetCurMemo.CaretY]);
 end;
end;

Procedurę pobierające komponenty na aktywnej karcie to

function TForm1.GetCurMemo:TSynMemo;
var
 I:Integer;
begin
 with ControlTAB.ActivePage do begin
   for I:=0 to ControlCount -1 do begin
    if (Controls[i] is TSynMemo) then Result:=(Controls[i] as TSynMemo);
   end;
 end;
end;

function TForm1.GetCurBar: TStatusBar;
var
 I:Integer;
begin
 with ControlTAB.ActivePage do begin
   for I:=0 to ControlCount -1 do begin
      if (Controls[i] is TStatusBar) then  Result:=(Controls[i] as TStatusBar);
   end;
 end;
end;

Problem tkwi w tym że to nie działa nie wiem czemu bo jak stworze button i dam mu np GetCurMemo.SelectAll; to działa poprawnie.

Może wie ktoś w czym tkwi problem ew jak go rozwiązać?

Daj kod unita, i co to jest TSynMemo ?

Już zrobiłem to zupełnie inaczej ;]