Ajustar columnas en dbgrid

[ingabraham]

Necesito ajustar los datos de las columnas en un dbgrid.

tengo el sgte codigo , pero no me deja desplazarme bien por las celdas , ni dar doble clic algunas celdas.

Código Delphi [-]
Procedure DBGridMostrarDatosDrawColumnCell(Sender: TObject; /...

if length(Column.Field.AsString) > Column.Field.Tag then
begin
  Column.Field.Tag:= length(Column.Field.AsString);
  Column.Field.DisplayWidth:=Column.Field.Tag+2;
end;

quien tiene otro o me pueda ayudar en este problema con el codigo