Tabsheet Problem

[sakura]

Delphi-Quellcode:

procedure TMainform.NeuExecute(Sender: TObject);
var
  Datei : TTabSheet;
  synedit1: Tsynedit;
begin
  Datei:=TTabSheet.Create(Self);
  unbekanntcount := unbekanntcount + 1;
  Datei.Caption:='Unbekannt ' + inttostr(unbekanntcount);
  Datei.Tag := tagcount;
  Datei.Visible := true;
  Datei.PageControl:=Tabber1;
  synedit1 := Tsynedit.Create(Self);
  synedit1.Parent := datei;
  synedit1.Name := 'synedit' + IntToStr(Datei.Tag);
  synedit1.Align := alclient;
  synedit1.SearchEngine := mainform.SynEditSearch1;
  synedit1.OnChange:=SynEdit1Change;
  synedit1.OnSpecialLineColors:=SynEdit1SpecialLineColors;
  datei.Show;
end;

Wenn ich jetzt da was mache, meinetwegen :

Delphi-Quellcode:

function TForm1.CurrentSynEdit: TSynEdit;
begin
  Result := TSynEdit(FindComponent('synedit' + IntToStr(tabber1.Activepage.Tag)));
end;

...
CurrentSynEdit.lines.loadfromfile('C:\test.bb');

......