procedure TForm1.FormCreate(Sender: TObject); begin StringGrid1.ColWidths[0]:= 0; // если колонка одна (по умолчанию) end;