Buttons während Endlosschleife betätigen

[StolenURBike]

Servus Leute,
wie der Titel schon verrät habe ich ein Problem, dass ich in meinem Projekt (Snake) während der Endlosschleife keine anderen Buttons ausführen kann.
Ich habe bisher schon mit deiesem Befehl probiert

Code:

 Application.ProcessMessages;

Jedoch hat es dann auch andere Prozeduren unterbrochen wie z.B., dass mein Spielfeldrand, welcher durch eine Canvas-Prozedur gezeichnet wird einfach verschwunden ist.

Hier der Code der Schleife:

Code:

procedure TForm1.Start();
var s:integer;
begin
s:=0;
snake := TSnake.Create;
snake.InitSnake(70,50);
snake.Richtung:=2;
Label3.Caption:='0';
while s=0 do
      begin
         snake.FoodListener();
         snake.KeyListener();
         snake.MoveSnake();
         sleep(100 - (((snake.length - 3) div 2)*8));
         s:=snake.SnakeListener();

         end;

end;