Dauerschleife während Button

[Emerold]

Hmm, moment, ich kann ja nochmal den Quelltext posten, vielleicht ja irgendwas falsch gemacht.

Delphi-Quellcode:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label2.Caption := '2';
  Wert := StrToInt(Label2.Caption);
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label2.Caption := '0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if wert>=1 then
    begin
      Label1.Top := Label1.Top - 10;
      form1.refresh;
      sleep(100);
    end;

end;

Edit:
Moment, ich glaube, ich hab den Fehler. Ich überprüfe kurz
-Edit:
Jap, Fehler gefunden. Die 0 muss ja natürlich auch noch zur Variable eingebunden werden wenn der klick vorbei ist

Super, das Problem ist gelöst. Großes Danke für die schnelle Hilfe.
Ach ja,
kann ich irgendwie die Tickgeschwindigkeit des Timers regeln. Also wenn ich bei 'Interval' den Wert verändere passiert da irgendwie nichts. Vll. kann mir da ja auch noch jemand helfen