[MAXIUM]

Duro dolor de cabeza, pero esta es mi solución, funciona has en widescreen (99%..)

Código Delphi [-]
  // Redimensiona la aplicación en base a la resolución de la pantalla.
     ScaleBy(Screen.WorkAreaHeight*Width Div Height, Width);
     Height:= Screen.WorkAreaHeight;
     Left:= (Screen.Width - Width) Div 2;
     BorderIcons:= BorderIcons - [biMaximize];

Colocar en Form.Create.

Ojo, es para cuando quieres que tu aplicación ocupe toda la pantalla. La propiedad BorderStyle = bsSingle y debe estar en modo normal, no maximizado.