Widescreen Auflösung

[Karl-Heinz]

Hallo zusammen,
schön, dass es dieses Forum noch gibt. Vor 10 Jahren habt Ihr mehr sehr weitergeholfen. Damals habe ich ein Projekt entwickelt welches heute aktualisiert werden soll. Das Problem der Bildschirmauflösung habe ich vor 10 Jahren so gelöst:
scaled := true;
if (screen.width <> 800 ) or (screen.Height <> 600 )then
begin
Form1.Width := (Form1.ClientWidth * Screen.Width div 800)+
Form1.Height-Form1.ClientHeight;
Form1.Height := (Form1.ClientHeight * Screen.Height div 600)+
Form1.Height-Form1.ClientHeight;
scaleBy(screen.width,800);
end;
Heute stellt sich das Problem mit den Widescreens. Wer kann helfen ?
Vielen Dank im voraus!
Karl-Heinz