type

TForm1 = class(TForm)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
end;

var

Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin

inherited;                   { вызов унаследованного обработчика события   }
if M.Result = htClient then  { кликнув в области окна?                     }
M.Result := htCaption;     { если так, то мы заставили Windows думать,   }
{ что щелчок был на заголовке окна.           }
end; 

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
const

SC_DRAGMOVE : Longint = $F012;
begin

if Button <> mbRight then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE,  0 );
end;
end;