Procedure FormShow(Sender:TObject)
Допустим 1 Символ Width=5;
n:=5;
for i:=0 then dbGrid.Columns.Count-1 do
begin
Columns[i].Width:=Length(DisplayText)*5;
end
Типа того - что нибудь.