[T@nker]

рассмотрю пример экранной лупы
как зделать так же чтоб при нажатии и удерживании форма перемещалась

Сорь метод уже узнал))))

[Casper-Hacker]

Код:

Const SC_DragMove=$F012;
begin
ReleaseCapture;
perform (WM_SysCommand,SC_DragMove,0);
end;

Добавить в процедуру OnMouseDown у формы, если еще кому интересно.