[marcoszorrilla]

Hay que afinarlo, pero algo como esto, recorriendo toda la colección de campos:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 DbGrid1.Columns.Items[2].Width:=Query1.Fields[2].Size * Dbgrid1.Font.Size ;
 end;

Un Saludo.