Maus klick abfragen - verständnis Problem

[ryLIX]

Moin,
folgendes habe ich vor:
Ich möchte, solang einButton gedrückt ist, eine Schleife durchlaufen.
Diese soll verlassen werden wenn der Button nicht mehr gedrückt ist.

Ich hab das ganze nun im OnMouseDown Event.
Nur irgendwie bleibt die Anwendung stehen bzw in der Schleife hängen.
Aber ich weiß grad nich was ich falsch mache.

Delphi-Quellcode:

procedure TForm4.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  while ssleft in shift do
  begin
    'Tu was
  end;
end;