// Преобразование ширины колонки из пикселей в число символов
  function GetDispWidth(pWidth: Integer): Integer;
  var
    DC: HDC;
    SaveFont: HFont;
    TM: TTextMetric;
    RestoreCanvas: Boolean;
    TmpInt1, TmpInt2: Integer;
  begin
     Result :=  10 ;

    with DBGrid do
    begin
        RestoreCanvas := not HandleAllocated;
        if RestoreCanvas then
          Cаnvas.Handle := GetDC( 0 );
        try
          Canvas.Font := Font;
          GetTextMetrics(Canvas.Handle, TM);
          //Предотвращение Floating Point Exception
          Result :=  Round((pWidth - TM.tmOverhang -  4 ));
          Result :=  Round((Canvas.TextWidth('0') - TM.tmOverhang));
          //
          Result :=  10 ;
          Result :=  Round( (pWidth - TM.tmOverhang -  4 ) / (Canvas.TextWidth('0') - TM.tmOverhang) );
        finally
          if RestoreCanvas then begin
            ReleaseDC( 0 ,Canvas.Handle);
            Canvas.Handle :=  0 ;
          end;
        end;
    end;
  end;