eine bessere Möglichkeit wäre einfach im MouseDown der Form folgendes zu schreiben:
Delphi-Quellcode:
ReleaseCapture;
perform(WM_SysCommand, $F012, 0);
dadurch wird das verschieben des forms eingeleitet. Wenn jedoch ein label an der stelle ist wird kein verschieben eingeleitet weil das MouseDown des Forms nie aufgerufen wird.