Только теперь другая проблема...
Жирный шрифт нужен был для заголовков колонок - он им и становиться, но после возврата предидущего стиля заголовки опять стандартного стиля.
Как сделать раздельное определение стиля на разные ячейки, а не на всю таблицу целиком?
Код
procedure TfMain.TablEnter(Sender: TObject);
Var
Style: TFontStyles;
begin
Style := Tabl.Font.Style; // Получение стиля текущего шрифта.
Tabl.Font.Style:=[fsBold];
Tabl.Cells[0,0]:='Дата';
Tabl.Cells[1,0]:='Время';
Tabl.Cells[2,0]:='№ документа';
Tabl.Cells[3,0]:='Документ';
Tabl.Cells[4,0]:='Сумма';
Tabl.Cells[5,0]:='Получатель';
Tabl.Cells[6,0]:='Поставщик';
Tabl.Cells[7,0]:='Информация';
{ Tabl.Font.Style:=Style; }
end;