Fenstergröße anpassen (Taskleiste beachten)(Tipp drucken)

---

procedure TForm1.SetPosition;
var
  Rect : TRect;
begin
  SystemParametersInfo (SPI_GETWORKAREA, 0, @Rect, 0);
  Top    := Rect.Top;
  Left   := Rect.Left;
  Width  := Rect.Right - Rect.Left;
  Height := Rect.Bottom - Rect.Top;
end;