procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
i,max:integer;
begin
max:=0;
with adotable1 do
begin
DisableControls;
first;
while not eof do
begin
if length(column.Field.Text)>max then
max:=length(column.Field.Text);
next;
end;
EnableControls;
end;
column.Width:=max*dbgrid1.canvas.textwidth('a');
end;