1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  aPoint: TPoint;

GetCursorPos(aPoint);
Perform(WM_SYSCOMMAND, SC_MINIMIZE, MakeLong(aPoint.X, aPoint.Y)); // Minimieren
Perform(WM_SYSCOMMAND, SC_MAXIMIZE, MakeLong(aPoint.X, aPoint.Y)); // Maximieren
Perform(WM_SYSCOMMAND, SC_RESTORE, MakeLong(aPoint.X, aPoint.Y)); // Restoren
Perform(WM_SYSCOMMAND, SC_CLOSE, MakeLong(aPoint.X, aPoint.Y)); // Schließen
Perform(WM_SYSCOMMAND, SC_CONTEXTHELP, MakeLong(aPoint.X, aPoint.Y)); // Kontexthelp