Anaprilin

Тоже пытался на Delphi сделать заголовки по центру, ничего готового не нашёл, пока выкрутился через обработчик события OnDrawColumnHeader.

procedure TForm1.StringGrid1DrawColumnHeader(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF);
begin
  // заливка "родного" заголовка
  Canvas.Fill.Color := TAlphaColors.White;
  Canvas.FillRect(Bounds, 0, 0, [], 1);
  // настройка текста нового заголовка
  Canvas.Fill.Color := TAlphaColors.Black; // Цвет текста заголовка колонки
  Canvas.Font.Size := 12; // Размер шрифта заголовка колонки
  Canvas.Font.Style := [TFontStyle.fsBold]; // Стиль шрифта заголовка колонки
  // отрисовка текста по центру
  Canvas.FillText(Bounds, Column.Header, False, 1, [], TTextAlign.Center);
end;