deklariere die Funktionen und Prozedure im public oder private Teil,
jenachdem wo Du überall darauf zugreifen willst.
Delphi-Quellcode:
....
private
procedure schuss1(schadenmax,schadenmin:integer; s:real;var l2:integer);
public
username:1..2;
end;
und deine Prozeduren und Funktionen mit
TForm1
Delphi-Quellcode:
procedure TForm1.schuss1(schadenmax,schadenmin:integer; s:real;var l2:integer);
var ab:integer;
begin
Randomize;
ab :=(random(schadenmax)+schadenmin);
s := s/10;
s :=ab+s;
l2 := l2-ab;
leben2.Caption := floattostr(l2);
showmessage(s1+' hat '+s2+' '+floattostr(ab)+' Lebenspunkte abgezogen');
end;
Das ist alles