private
procedure HitTest(Var Mes : TMessage);message Wm_NcHitTest;
And in implementation :
procedure HitTest(Var Mes : TMessage);
begin
inherited;
if Mes.Result=HtClient then
Mes.Result:=HtCaption;
end;