1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TMain.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var tc, tw : integer;
begin
  with Sender as TStringGrid do
  begin
    with Grid.Canvas do
    begin
      // Text zentrieren und ausgeben
      tw := TextWidth(Grid.Cells[ACol,ARow]);
      tc := Rect.Left + (Rect.Right - Rect.Left - tw) div 2;
      TextRect(Rect,tc,Rect.Top+2,Cells[ACol,ARow]);
    end;
  end;
end;