Mover Janela

const
  SC_DRAGMOVE: Integer = $F012;
begin
  ReleaseCapture;
  SendMessage(Self.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);