prozedur soll eine Button-Click prozedur aufrufen

[kenshin3672]

Das bereits auf Seite 1 stehende und folgendes:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Tform1.Button1Click(Sender)
then TForm1.nGewinn(parameter : integer) : integer;
end;


procedure TForm1.Button1Click;
begin
nGewinn;
end;

joa hat nicht wirklich was gebracht