Resolución grande (120ppp) o normal (96ppp)

[chozas]

Tengo el problema con algunos proyectos de delphi que ante cambios de los puntos por pulgada de la pantalla ( de 120 a 96 ó viceversa. PixelsPerInch) no se hace bien el escalado de las fuentes de los diferentes componentes que conforman el form. He buscado alguna información y encontré el siguiente código que no acaba de solucionarlo del todo:

Código Delphi [-]
const
ancho = 640; // Ancho del diseño
alto = 480; // Alto del diseño
procedure TForm1.FormCreate(Sender: TObject);
begin
Height := Height * Screen.Height div alto;
Width := Width * Screen.Width div ancho;
ScaleBy(Screen.Width, ancho);
end;

--> Supongo que este fuente está orientado a cambios en la resolución de pantalla que no en los ppp (PixelsPerInch).

Es más ante cambio de los ppp el escalado no lo hace bien ni siquiera en tiempo de diseño. Alguien me puede ayudar con este problema?.