Memofelder auf einem Form erstellen

[LoW_FloW]

Hallo! Ich würde gerne während der Laufzeit mehrere Formular mit 2 Memofeldern erstellen. Dazu habe ich den folgenden Code geschrieben:

Delphi-Quellcode:

procedure TfrmMain.FormErstellen(Titel: string);
var
  Form1: TForm;
  memoVerlauf, memoText: TMemo;
begin
  Form1 := TForm.Create(Self);
  try
    with Form1 do
    begin
      ////////////////////////
      // ALLE EIGENSCHAFTEN //
      ////////////////////////
      //FARBE//
      Form1.Color := frmRustCQ.Color;
      Form1.Caption := Titel;
      // 2 Memofelder//
      memoVerlauf := TMemo.Create(self);
      memoText    := TMemo.Create(self);
      with memoVerlauf do
      begin
        Left   := 8;
        Top    := 8;
        Height := 117;
        Width  := 345;
      end;
      with memoText do
      begin
        Left   := 8;
        Top    := 216;
        Height := 97;
        Width  := 345;
      end;
      //MITTE//
      Form1.Left := (Screen.Width  div 2) - (Form1.Width   div 2);
      Form1.Top  := (Screen.Height div 2) - (Form1.Height div 2);
      ////////////////////////
      show;                   
    end;
  finally
  end;
end;

Das Formular wird angezeigt, nur die 2 Memofelder nicht. Vielleicht liegt es daran, dass ich den memofeldern nicht gesagt hab, dass sie zum formular gehören, doch wie geht das!?

Thx schonma :wink:

[dahead]

so:

Delphi-Quellcode:

memoVerlauf := TMemo.Create(Form1); // hier den sog. Owner angeben - muss nicht zwingend Form1 sein
memoVerlauf.Parent := Form1; // hier wird Parent angeben
memoText    := TMemo.Create(Form1); // hier den sog. Owner angeben - muss nicht zwingend Form1 sein
memoText.parent := Form1; // hier wird Parent angeben

[LoW_FloW]

danke :thumb: funktioniert 1.Klasse :mrgreen: