Emular widescreen en VirtualPC

[MAXIUM]

Bueno, tras meditarlo mientras jugaba ajedrez con Zarko Gajic, el código que me funciona medianamente bien (en realidad bien), me quedo así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
Const Proporcion = 4/3;
Begin
  // Redimensiona la aplicación en base a la resolución de la pantalla.
     If (Screen.Width/Screen.Height) = Proporcion Then
         Begin
         ScaleBy(Screen.WorkAreaHeight, Height);
         WindowState:= wsMaximized;
         End
     Else
         Begin
         ScaleBy(Trunc(Screen.WorkAreaHeight*Proporcion), Width);
         Height:= Screen.WorkAreaHeight;
         Top:= 0;
         Left:= (Screen.Width - Width) Div 2;
         BorderIcons:= BorderIcons - [biMaximize];
         End;
End;

¿Alguien se atreve a testearlo?, el formulario en diseño esta en formato 4:3 y WindowState:= wsNormal.