Lav ny Form

procedure TForm1.Button1Click(Sender: TObject);
var
  MinForm: TForm;
  MinMemo: TMemo;
begin
  Minform := TMinForm.Create(Self);
  Minform.caption := 'Min Form';
  Minform.Show;
  MinMemo := TMemo.Create(Self);
  MinMemo.Parent := MinForm;
  MinMemo.lines.add('Hej med dig');

  (*Så fjernes den igen. Hvis den skal bruges længere, bør du oprette en 'MinForm.onclose der kalder free så du ikke optager unødig plads*)

  showmessage('Slut');
  MinMemo.free;
  Minform.free;
end;