Nach MouseUp immer ein MouseMove, weshalb?

[Bjoerk]

Ist das bei euch auch so, daß nach MouseUp immer ein MouseMove kommt und auch beim Start der App, wenn der MouseCursor innerhalb des Canvas ist?

Delphi-Quellcode:

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Caption := Format('MouseDown %d %d',[X, X]);
end;

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := Format('MouseMove %d %d',[X, X]);
end;

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Caption := Format('MouseUp %d %d',[X, X]);
end;