in Laufzeit Objakt hinzufügen

[Remote1]

Delphi-Quellcode:

procedure cedit(ort:tcomponent; par:twincontrol; jahr:string; x,y:integer);
var MyEdit: TEdit;
begin
  MyEdit := TEdit.Create(ort);
  with MyEdit do begin
    Parent := par;
    Height := 21;
    Width := 33;
    Text := jahr;
    Left := x;
    Top := y;
  end;
end;

und das dann bei onchange (bzw extra procedure

Delphi-Quellcode:

 for i:=1 to 5 do
  cedit(Form2.PageControl1, Form2.PageControl1, inttostr(1872+i), 16,32+32*i);
 for i:=1 to 34 do
  cedit(Form2.PageControl1, Form2.PageControl1, inttostr(1884+i), 16,160+32*i);

aber nach dem erstellen will ich alle edit felder auch wieder auslesen und ich hab keine ahnung wie ich die ansprechen soll (edit1 geht ja wohl nicht)

ach ja, das alles soll ne art datenbank werden
ich les halt aus einer ini datensätze aus und dementsprechend werden dann die obj erstellt