[ecfisa]

Hola.

Me alegra que lo hayas solucionado

A modo de comentario, ese código se puede reducir:

Código Delphi [-]
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If GetCapture = 0 then
    SetCapture(Handle) ;
  if not PtInRect(BoundsRect, Mouse.CursorPos) then
    Close;
end;

Saludos.