PageControl: in neuem Tab ein Object erstellen

[DelTurbo]

Hi,

ich habe gleich zwei fragen. Eventuell auch nur ein verständniss problem. Ich habe mit PageControl ein Objekt erstellt. Nun kann ich mit fogendem Code dort drin tabs erstllen.

Delphi-Quellcode:

procedure TForm1.bc(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 3 do
    with TTabSheet.Create(PageControl1) do
    begin
      PageControl := PageControl1;
      Name := 'sname' + IntToStr(i);
      Caption := IntToStr(i);      
   end;
end;

Ich weiss ist nicht schön, aber zeigt wie man tabs erstellt. Wie kann ich nun in dieser schleife auch eine RichEdit erstellen? Oder anders gefragt, ich weiss wie man z.b. ein RichEdit zur laufzeit erstellt. Sagen wir mal ich möchte nun RichEdit1 in Tab 1 haben, und RichEdit2 in Tab 2 haben usw.

Wegen dem löschen eines tab mit X erstellung bin ich bei euch schon fündig geworden. Das ist aber im moment erstmal zweitrangig für mich.

Danke im voraus