[Alegun]

Можно через использование айпишной GetCapture

Код:

procedure TForm1.FormDeactivate(Sender: TObject);
begin
 ReleaseCapture;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
 if GetCapture = 0 then SetCapture(Handle);
 if PtInRect(Rect(Left, Top, Left + Width, Top + Height), ClientToScreen(Point(x, y))) then
  Caption:= 'Мышка на форме'  else 
  Caption:= 'Мышка за пределами формы';
 inherited;
end;//  Drkb:: 01573