Endlosschleife unterbrechen

[gangs-taas]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tags := 1  ;
  sleep(1000);
  Repeat
    keybd_event(Ord('Y'), 0, 0, 0);
    keybd_event(Ord('Y'), 0, KEYEVENTF_KEYUP, 0);
  Until Tags = 1000 ;
end;

also ich möchte, dass er hat solange y drückt bis ich auf den . drücke und dann erst wieder mit dieser schleife anfängt wenn ich wieder auf button1 drücke ...


EDIT
es ist ja nicht absichtlich ne endlosschelife. Sie soll ja enden ich das durch den '.' bestimme ...