Maus klick abfragen - verständnis Problem

[ryLIX]

Sag ich doch verständnis Problem.
Ich hatte nun im Kopp das die Variable nur für die Zeit wie der state vorhanden ist auch dessen Wert hat.

Danke für die Hinweise.
Möchte hier noch kurz meinen test Code posten fall jemand ein ähnliches Problem hat.
Wollte möglichst auf Timer verzichten deswegen diese Lösung.

Delphi-Quellcode:

implementation

{$R *.dfm}
var
go : boolean;

procedure TForm4.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  num : Integer;
begin
  num := 1;
  go := true;
  if ssleft in shift then
  begin
    repeat
    Inc(num);
    Edit1.Text := IntToStr(num);
    Application.ProcessMessages;
    until not (go);
  end;
end;

procedure TForm4.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if go then
  begin
    go := false;
  end;
end;