Problem mit Counter

[sakura]

Vielleicht so...

Code:

var
  Form3: TForm3;
  counter: byte;
.....
procedure TForm3.Timer1Timer(Sender: TObject);
begin
dec(counter);
Button1.Caption:='Noch '+IntToStr(counter)+' Sekunden';
[color=#ff0000]if counter = 0 then
  Timer1.Enabled := False;[/color]
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;

......