Basketball Freiwurf

[OmahaHawk]

Zitat von DeddyH:

procedure TDeinForm.NeuesLevel;
begin
//Level hochzählen
FLevel := FLevel + 1;
//Wurfvariable zurücksetzen
FWurf := 0;
end;

rocedure TDeinForm.Punkte(iPunkte: integer);
begin
//Gesamtpunkte aufaddieren
FGesamt := FGesamt + iPunkte;
end;[/delphi]

procedure TDeinForm.NeuesLevel;
rocedure TDeinForm.Punkte(iPunkte: integer);

Sind das button oder label oder was sind das ??

muss ich noch was bei den variablen (var) einfügen ?