[Nyctos Kasignete]

При большом желании и «автодлина» (как вы изволите выражаться) может быть запрограммирована.
Это обработчик события OnDrawCell.

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  txtWidth: Integer;
begin
  with (Sender as TStringGrid) do
  begin
    txtWidth := Canvas.TextWidth(Cells[ACol, ARow]);
    if ColWidths[ACol] < txtWidth then ColWidths[ACol] := txtWidth + 3;
  end;
end;