procedure TUserProf.DataGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s:String;
 Flag: Cardinal;
 H: integer;
begin
    if (DataGrid.ColWidths[ACol] > -1) then begin
      DataGrid.Canvas.FillRect(Rect);
      s := DataGrid.Cells[ACol,ARow];
      
	  //Выравнивание для "Заголовков" 
	  if ARow = 0 then begin
        Flag := DT_CENTER;
        DataGrid.Canvas.Font.Style := [fsBold];
      end
        else Flag := DT_LEFT;
		
      Flag := Flag or DT_WORDBREAK;
	  
      //Отступы текста от края ячеек
	  if ACol > 0 then begin
        Inc(Rect.Left,3);
        Dec(Rect.Right,3);
      end;
	  
      H := DrawText(DataGrid.Canvas.Handle,PChar(s),length(s),Rect,Flag);
      if H > DataGrid.RowHeights[ARow] then
        DataGrid.RowHeights[ARow] := H;
    end;
end;