Test ob Maus hoch oder runter

[citybreaker]

Hallo,

kann man testen ob die Maus hoch oder runter bewegt wird?
Ich hab bisher folgendes gemacht um ein image zu bewegen.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Top := Y;
end;

Nun soll je nach richtung der Inhalt der TImages geändert werden.