Работа с компонентом StringGrid

// готовим канву (назначаем все нужные цвета, но выравнивание не трогаем) :
procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var canv : TCanvas;
begin
  canv := (sender as TStringGrid).Canvas;
 
  if aRow = 0 then
  begin
    canv.Brush.Color := clBtnFace;
  end;
 
  if aCol = 6 then
  begin
    canv.Font.Color := clRed;
  end;
 
  if gdFocused in aState then
  begin
    canv.Brush.Color := clHighlight;
    canv.Font.Color := clWindow;
  end;
end;
 
// и добавляем обработчик OnDrawCell, в котором будем только рисовать текст по центру ячеек:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var
  gr : TStringGrid;
  cv : TCanvas;
  txt : string;
begin
  gr := Sender as TStringGrid;
  cv := gr.Canvas;
  txt := gr.Cells[ACol, ARow];
 
  // все цвета уже установлены ранее, здесь этого делать не нужно
  cv.FillRect(ARect);
  cv.TextOut(ARect.Left + ((ARect.Width - cv.TextWidth(txt)) div 2),
             ARect.Top + ((ARect.Height - cv.TextHeight(txt)) div 2), txt);
end;