[~TB~]

Код:

var
  fx, fy: Integer;
implementation

procedure TMainForm.FormDblClick(Sender: TObject);
begin
  if (fx=MainForm.Width) and (fy=MainForm.Height) then
  // что-то делаем
end;

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  fx:=X;
  fy:=Y;
end;

Примерно так.