Problem mit MouseMove

[daredd]

Ich habe das jetzt so zu stehen, also ohne Schleife:

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
            TMPoint(List.GetItem(i)).ResetPos(X, Y);
            TMPoint(List.GetItem(i)).Paint;
            end;
            RefreshStatistic;
end;

Und es geht trozdem nicht, der Punkt kommt einfach nicht aus dem knick? Ist vielleicht das "live-zeichnen" auf dem Image verboten.

Hab ich das eigentlich Richtig verstanden? MouseMove, MouseDown, MouseLeave, ... das sind alles reservieter Methoden und wenn ich die einfach an den Namen des Objektes hänge führt er die Mouse-Methoden aus.
Ich habe mal in das TImage geschaut und dor nur OnMouseMove, OnMouseDown gefunden. Bei meiner TheImageMouseDown-Methode funktioniert alles, aber bei dieser hier (TheImageMouseMove) nicht.

Kann mich einer aufklären?