Fenster minimieren und verschieben (frage zur abfrage)

[kingflo]

So das mit dem Verschieben hab ich gelöst falls es jemanden FAQ mäßig interresiert hier wie ich es jetzt gemacht habe

Code:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMMove(var Message: TWMMove); message WM_MOVE;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.WMMove(var Message: TWMMove);
begin
  // Die Vorgängermethode WMMove aufrufen
  inherited;
  // Und jetzt unsere eigene Routine:
  // Z.B. in der Titelleiste die aktuellen Fenster-Koordinaten anzeigen
  try
    Caption := IntToStr(Message.XPos) + ':' + IntToStr(Message.YPos);
  except
  end;
end;

Allerdings habe ich das Problem mit dem minimieren immernoch