Stopp die Zeit zwischen den Events MouseDown und MouseUp (allerdings geht es Desktopweit nur, wenn du dein fentser auf den Desktop ausdehnst oder einen globalen Hook einsetzt.
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if zeit=0 then zeit:=gettickcount;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit1.text:=inttostr(gettickcount-zeit);
zeit:=0;
end;