Schleife wird nicht unterbrochen

[vip11]

hi ich hab ein problem:
bei mir wir bei dem folgenden quellcode eine dauerschleife ausgelöst die die maus immer weiter nach links bewegt. eigentlich sollte es mit der maus ein gitter mit xf * yf feldern ablaufen.

Delphi-Quellcode:

begin
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  s:= 0;
  x:=0;
  y:=0;
  xf:= strtoInt(Edit1.text);
  yf:= strtoInt(Edit2.text);
  repeat //y
  repeat    //x
  if s=0 then begin
  SetCursorPos(mx+40,my);
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  sleep (100);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end else if s=1 then begin
  SetCursorPos(mx-40,my);
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  sleep (100);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end;
  x := x +1;
  until x = xf;             //x
  SetCursorPos(mx,my-40);
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  sleep (100);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  if s =1 then
  begin
  s:= 0
  end
  else if s=0 then
  begin
  s:= 1;
  end;
  y := y+1;
  until y = yf     //y
  end;
end;

könnte mir jemand sagen wo mein fehler liegt?