Also setzte deine highscore:Integer Variable hier hin.
Delphi-Quellcode:
var
Form1: TForm1;
vx, vy: integer;
Counter_Sec: Integer = 0;
StopTimer: boolean = false;
highscore : Integer = 0;
dahin die funktion
Delphi-Quellcode:
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure sethighscore(Sender : TObject);
private
{ Private-Deklarationen }
die definition
Delphi-Quellcode:
implementation
procedure Tform1.setHighscore(Sender : Tobject)
begin
highscore := highscore + 10;
end;
Aufruf:
ich denke mal hier fängst du die Fee
Delphi-Quellcode:
procedure TForm1.FormClick(Sender: TObject);
begin
StopTimer := true;
ImFee1.Visible := false;
setHighscore();
end;
So in etwa ist jetzt aus dem steh greif da ich nicht so viel zeit habe, hoffe das es so deutlicher ist.
greetz Lun
P.S: Für die Ausgabe, ein Label auf das form und dann Label1.Text := IntToStr(highscore);
Aber würde mir an deiner stelle auch mal ein paar Tutorials angucken.