Button zur Laufzeit erzeugt und wenn Click, dann Form erzeug

[Christian18]

Hallo,

ich habe mal eine Frage, ich wollte eine form zur laufzeit erzeugen. der button der diese form erzeugen soll, der ist auch schon zu laufzeit erzeugt. wie mache ich das??? ich hatte schon einmal angefangen.

Delphi-Quellcode:

procedure TFFormulare.Button1Click(Sender: TObject);
  var Button : TButton;
      Form   : TForm;
begin
  Button:=TButton.Create(self);
  Button.Top:=100;
  Button.Left:=200;
  Button.Parent:=FFormulare;

  if Button.OnClick then begin
  Form:=TForm.Create(self);
  Form.Width:=100;
  Form.Height:=100;
  Form.ShowModal;
  end;
end;

der fehler kommt

[Fehler] UFormulare.pas(70): Nicht genügend wirkliche Parameter