procedure TForm1.Button1Click(Sender: TObject);
begin
//anderes Zeugs;
begin
nGewinn(Zahl1,Zahl2,Zahl3,Zahl4);
end;
//noch mehr anderes Zeugs
end;
Hab es genauso übernommen und es funktioniert einwandfrei.
Das die erste Methode die ich versuchte nicht funktioniert hab ich dann auch gemerkt
bzw es war nur eine Überlegung meinerseits