Сворачивание формы при неактивности

[Хамяг]

Имеется форма, а также компоненты TrayIcon и ApplicationEvents.

С помощью ApplicationEvents я сделал так, чтобы при неактивности формы она скрывалась:

procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);
begin
  Form1.Visible:=False;
end;

А с помощью TrayIcon сделано, чтобы форма скрывалась или появлялась при нажатии на иконку в трее.

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  if Form1.Visible = True then
  begin
    Form1.Visible:=False;
  end
  else
  begin
    Form1.Visible:=True;
    SetForegroundWindow(Form1.Handle);
  end;
end;

Однако при этом получается несуразица: при нажатии на кнопку в трее форма теряет фокус и срабатывает ApplicationEvents1Deactivate, скрывающий форму. После этого уже сработает TrayIcon1Click, но т.к. форма уже скрыта - она вновь появляется.

Даже если изменить событие на TrayIcon1MouseDown, то по-прежнему ничего не изменится (разве что срабатывать будет при нажатии, а не отпускании кнопки мыши).

Как можно решить эту проблему?

[Хамяг]

Всё таки решил задачу, хоть и немного глупо:

var
  CurCrd: TPoint;

procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  CurCrd.X:=X;
  CurCrd.Y:=Y;
end;

procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);
begin
  if not ((Abs(Mouse.CursorPos.X - CurCrd.X) in [0..16]) and (Abs(Mouse.CursorPos.Y - CurCrd.Y) in [0..16])) then Form1.Visible:=False;
end;