configurar monitor em tempo de execução

ola pessoal, estou necessitando quequando abrir o meu aplicativo ele automaticamente reconheceria a configuracao do monitor, tenho feito conforme segue abaixo, mas hoje deparei com um notbook com uma tela diferente no qual ficou tudo modificado meu form na tela. Caso quem saiba como trazer a tela a configuracao do monitor agradeceria



Implementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;
----> gostaria que jogasse automaticamente nestes dois campos acima a configuracao real do monitor
e ele automaticamente iria reconhecer e alterar a configuacao abaixo descrita


{$R *.DFM}
procedure TForm1.FormCreate (Sender: Tobject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) DIV ScreenHeight;
width := longint(width) * longint(screen.width) DIV ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;
end;