Ein ganz merkwürdiges Problem... hab nicht mal den Ursprung!

[scp]

Wie wärs damit:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject); 
begin 
timer2.Enabled := false; 
timer2.Interval := 1000; 

Speedbutton1.visible := true; 
Speedbutton1.caption := inttostr(StartZaehler); 
dec(StartZaehler); 

if StartZaehler = -1 then begin 
                          image1.Canvas.pen.color := SchlangenFarbe; 
                          image1.Canvas.brush.Color := SchlangenFarbe; 
                          speedbutton1.visible := false; 
                          timer1.enabled  := true; 
                          SetCursorPos(Form1.Left + Form1.width + 10, Form1.Top); 
                          CreateFruit; 
                          end
                     else timer2.Enabled := true; 
end; 

// ...

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  timer2.Interval := 50;
  timer2.Enabled := true; 
end;