Ich hoffe mal, dass ich dich richtig verstanden hab...
Code:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var MyText: string;
begin
MyText:= '';
if x[list=1]OldX then begin
// ab nach Rechts
MyText:= 'Rechts/';
end else begin
// x bleibt
MyText:= '-/';
end;
if y[list=1]OldY then begin
// ab nach unten
MyText:= MyText+'Runter';
end else begin
// y bleibt
MyText:= MyText+'-';
end;
Panel1.Caption:= MyText;
OldX:= x;
OldY:= y;
end;
Hier z.B. das OnMouseMove eines Panels. Als Caption bekommt es die Richtung.
OldX und OldY sind als Word im Private-Abschnitt des Forms deklariert.
Grüsse!