undeclared identifire obwohl klar definiert wurde

[uwewo]

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