Problem mit MouseMove

[daredd]

Hallo Freunde,

ich habe mal wieder ein Problem. In meinem Programm habe ich ein TImage auf dem ich nun schon Punkte setzen kann mit MouseDown.

Nun will ich aber diesen die Position des Punktes veränder, dazu dachte ich das ich den bestimme ob der Punkt ausgewählt ist (also selected), wenn ja soll er den Punkt so lange der Maus hinterlaufen bis ich ihn wieder DeSelecte.

Ich hab mir das ganze mit MouseMove gedacht, aber irgedwie klappt das nicht, der Punkt bewegt sich nicht um einen Pixel.

Delphi-Quellcode:

procedure TFormEditor.TheImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var i : integer;
begin

for i := 0 to List.Count - 1 do
         if (List.GetItem(i) is TMPoint) then
            if TMPoint(List.GetItem(i)).Selected then begin
            while TMPoint(List.GetItem(i)).Selected do // Schleife damit der Punkt der Maus folgt!!!!???
            TMPoint(List.GetItem(i)).ResetPos(X, Y); TMPoint(List.GetItem(i)).Paint;
            end;
            RefreshStatistic;
end;

Kann mir einer sagen was da Falsch ist?