Largura do display (dbgrid) igual ao tamanho 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;