Button1.left durch schleife bleibt Programm haengen

[Natcree]

Habe einen Button der immer den ablauf in der Schleife wieder holen soll. Nun stürtz Bloss mein popup menü ab und ich kann das Prog nicht mehr beenden ode Bedienen.

Hier mal der Code

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
var
i,j:integer;
begin
  if MediaPlayer1.NotifyValue = nvSuccessful then
  MediaPlayer1.Play;

for i:= 1 to 45 do
begin
colorButton1.Left := (colorButton1.left - 1);
sleep(70);
end;
sleep(70);
for i:= 1 to 45 do
begin
colorButton1.Left := (colorButton1.left + 1);
sleep(70);
end;
for i:= 1 to 45 do
begin
colorButton1.Left := (colorButton1.left - 1);
sleep(70);
end;
for i:= 1 to 45 do
begin
colorButton1.Left := (colorButton1.left + 1);
sleep(70);
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Align:=alclient;
MediaPlayer1.Notify := true;
Mediaplayer1.Play;
end;

Wo ist der Fehler???