Du warst dicht dran, hast aber offenbar die Meldungen des Compilers nicht gelesen, warum er Deinen Code ablehnt.
Deine Prozedur "nGewinn" erwartet einen Parameter - offenbar eine Zahl. Die musst Du ihr schon gönnen.
Delphi-Quellcode:
procedure TForm1.Button1Click;
begin
nGewinn( 42 );
end;
Daniel R. Wolf
mit Grüßen aus Hamburg