Delphi dicas

Mostrar a largura das colunas de um dbgrid igual ao seu tamanho (campo) na tabela

Procedure TForm1.btnTestClick(Sender: TObject);

var i: integer;

begin

        for i:= 0 to Table1.FieldCount-1 do

        Table1.Fields[i].DisplayWidth:= Length(Table1.Fields[i].DisplayLabel);

end;