onMouseMove bei Image ShowMessage

[Christian18]

Hallo,

ich habe eine Access DB in der habe ich eine Tabelle Positionen! In der Tabelle Positionen sind folgende Felder enthalten:

1. Idx
2. Pfad
3. x
4. y

wenn ich mein Programm starte, dann werden aus der tabelle die daten geladen und in ein Image eingezeichnet. Also es werden kreise gezeichnet

x1=x-3
y1=x-3
x2=x2+3
y2=y2+3

wenn ich mit der Mouse über den Punkt fahre, dann soll ein ShowMessage ausgelöst werden. Die Informationen für das ShowMessage sollen sein:

x und y koordinaten.

Hier mein Code den ich bis jetzt habe:

Delphi-Quellcode:

procedure TFPositionen.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
  var j : Integer; // Schleifenvariable
      x1, x2, y1, y2 : Integer;
begin
  DM.TPositionen.First;  // DM ist ein Datenmodul
  for j:=1 to DM.TPositionen.RecordCount do
    begin
      // Parameter setzen
      x1:=DM.TPositionen.FieldByName('X').AsInteger - 3;
      y1:=DM.TPositionen.FieldByName('Y').AsInteger - 3;
      x2:=DM.TPositionen.FieldByName('X').AsInteger + 3;
      y2:=DM.TPositionen.FieldByName('Y').AsInteger + 3;

      if (x >= x1) and (y >= y1) and (x <= x2) and (y <= y2) then
        begin
          ShowMessage('X: ' + DM.TPositionen.FieldByName('X').AsString + 'Y: ' + DM.TPositionen.FieldByName('X').AsString);
        end;

      DM.TPositionen.Next;
    end;
end;

Kann mir jemand bei meinem Problem helfen???


MFG Christian18