procedure TFormHistory.ListHistoryDrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var
 S: string;
 DrawRect: TRect;
 CurrentColor: TColor;
begin
 // Определяем цвет строки в зависимости типа Imcoming
 if (Sender as TStrinGgrid).Cells[COLUMN_INCOMING , Row ] = '1' then
  CurrentColor:=clBlue
 else
  CurrentColor:=clMaroon;
 if (Sender as TStrinGgrid).Row = Row then
  CurrentColor := clHighlightText;
 (Sender as TStrinGgrid).Canvas.font.color := CurrentColor;
 S:= (Sender as TStrinGgrid).Cells[ Col, Row ];
 if (Col = COLUMN_MESSAGE ) and (Row <> ROW_HEADER) then
 begin
  if Length(S) > 0 then
  begin
  DrawRect:=Rect;
  DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S), Length(S),
  DrawRect, dt_calcrect or dt_wordbreak or dt_left );
  if (DrawRect.bottom - DrawRect.top) > (Sender as TStrinGgrid).RowHeights[Row] then
  (Sender as TStrinGgrid).RowHeights[row] :=(DrawRect.bottom - DrawRect.top)
  else
  begin
  DrawRect.Right:=Rect.Right;
  (Sender as TStrinGgrid).Canvas.FillRect( DrawRect );
  DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S),
  Length(S), DrawRect, dt_wordbreak or dt_left);
  end;
  end;
 end
 else
  if Row <> ROW_HEADER then
  (Sender as TStrinGgrid).Canvas.Textout(rect.left+3, rect.top+3 , S );
end;