Transparente Form verschieben

[snapman]

Hallo,
danke für die Antwort.
Leider funktioniert die Lösung von Luckie nicht ganz.
Ich kann die Form zwar ein paar mal verschieben, aber danach geht es plötzlich nichtmehr.

Woran kann das liegen?

//EDIT

habe einfach den Teil

if (Message.Result = htClient) and
(ControlAtPos(Point(Message.xPos, Message.yPos), True, True) <> nil)
...

entfernt, nun gehts