Problemas con las resoluciones de pantalla

[MAXIUM]

en el Form.Create

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];
     Top:= 0;

Propiedad del formulario
BorderStyle = bsSingle
ClientHeight = 542
ClientWidth = 792