Programm bei Klick auf "X" minimieren

[Matze]

Ich habe es nun so versucht:

Delphi-Quellcode:

procedure TForm1.WMSize(var Message: TWMSize);
begin
    if(Message.Msg = WM_SIZE) and
    (Message.SizeType = SIZE_MINIMIZED) then
  begin
    Hide;
    // Icon nur anzeigen wenn Fenster minimiert
    Shell_NotifyIcon(NIM_ADD, @IconData);
  end
  else
    inherited;
end;

Aber einen Unterschied kann ich nicht feststellen.