procedure GetActualRatio();
var
  str: String;
begin
  Str:= (HeightSet+'x'+WidthSet);
  if Str = '1920x1080' or '1600x900' or '1366x768' or '1280x720' or '1024x600' or '960x540' or '854x480' or '640x360') then Ratio.ItemIndex = 0
  else if Str = '1920x1020' or '1680x1050' or '1440x900' or '1280x800' or '1152x720' or '1024x640' then Ratio.ItemIndex = 1
  else if Str = '1600x1200' or '1400x1050' or '1280x960' or '1152x864' or '1024x768' or '960x720' or '800x600' or '720x540' or '640x480' then Ratio.ItemIndex = 2
  else if Str = '1920x1536' or '1280x1024' then Ratio.ItemIndex = 3 else Ratio.ItemIndex = null;
end;