Form üzerindeki bileşenleri resolution oranında büyütme.
//Referans olarak 640*480 alinmıiştır.
procedure AdjustResolution(oForm:TFrm);
var
iPercentage:integer;
begin
if Screen.Width > 640 then
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
AdjustResolution(Self);