Centralizar no StringGrid

No componente StringGrid o texto na célula fica alinhado à esquerda.
Vamos alterar para centralizar o texto via código:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var texto : string;
   largurat : integer;
   largurac : integer;
begin
   texto := StringGrid1.Cells[ACol, ARow];
   largurat := Canvas.TextWidth(texto) div 2;
   largurac := StringGrid1.ColWidths[ACol] div 2;

   StringGrid1.Canvas.FillRect(Rect);
   StringGrid1.Canvas.TextOut(Rect.Left+largurac-largurat,Rect.Top, texto);
end;

 [ Fonte ]