FORM WITHOUT BAR

public
{ Public declarations }
procedure WMNCHitTest(var msg : TWMNCHitTest); message WM_NCHitTest;
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
begin
inherited;
if (msg.Result = htClient) then
if Msg.YPos <>
msg.Result := htCaption;
end;