windowstate := wsMaximized; und borderstyle := bsnone;

[Dani]

Achso hatte den Satz falsch verstanden...sorry

Probier mal das:

 Form1.Constraints.MaxHeight := Screen.WorkAreaHeight;