function FontSizeString: string;
  var
    r: real;
    sFontSize: integer;    
  begin
    r := ((sControl.Font.FontHeight * -72) - 36) / ScreenDPI;
    sFontSize := Integer(Trunc(r));        // ?????????????????????? Integer переводим в Integer
    if Frac(r) > 0 then  Inc(sFontSize);
    Result := int2str(sFontSize) + 'pt ';
  end;