Problem mit Counter

[Wolverine]

Hi Leude,
ich hab ein Prob mit nem Counter den ich in eines meiner Proggies eingebaut habe.
Problem ist folgendes. Der Counter zählt bis Null und fängt dann bei 255 wieder an runter zu zählen.
Das kommt daher, weil ich ihn als "byte Variable" deklariert habe.
Ich will aber das mein Counter, wenn er bei 0 angekommen ist stoppt.
Wie kann ich das realisieren?
Quellcode wie folgt:

Delphi-Quellcode:

var
  Form3: TForm3;
  counter: byte;
.....
procedure TForm3.Timer1Timer(Sender: TObject);
begin
dec(counter);
Button1.Caption:='Noch '+IntToStr(counter)+' Sekunden';
end;

procedure TForm3.FormShow(Sender: TObject);
begin
if
    (Form1.Kugelrot.Left=40)
  and
    (Form1.Kugelrot.Top=40)
  and
    (Form1.Kugeblau.Left=480)
  and
    (Form1.Kugeblau.Top=296)
  then
begin
counter:=12;
end;

if counter = 0
then
  application.Terminate;

Sorry wenn der Code etwas lang sein sollte.
Ich bräuchte die Lösung ziemlich schnell und da ich gute und schnelle Antworten von diesem Board gewohnt bin, hoffe ich das es auch diesmal der Fall ist.
Ich hab nämlich absolut keinen Plan und stehe total unter Zeitdruck