Ajustar largura da coluna do DbGrid com o tamanho do campo

Olá pessoal, desenvolvi um processo que ajusta o tamanho da coluna do dbrgid de acordo com o tamanho do campo... Só que estou com um problema, a dbgrid está dando umas travadinhas ... tipo ...ele faz tudo bonitinho, mas quando aparece na tela ... ela dá uma travadinha...dai eu tenho que ir pra baixo e voltar no registr pra ela voltar a funcionar direitinho....isso é meio incomodo para o usuario...e é batata que não vaõ gostar.... entao eu preciso da ajuda de vcs para implementar esse código...   // --> Coloque esse codigo no evento DrwanColumnCell de sua DbGrid...   procedure TForm10.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  // --> Atualiza a tela
  LockWindowUpdate(0);
  // --> Se o tamanho da coluna for maior do que o valor da tag que teoricamente é o tamanho maximo
  if Column.Width >= Column.Field.Tag then
  begin
    // --> Se o tamanho do titulo da coluna for menor do que o tamanho(largura) do Field
    if Canvas.TextWidth(Column.Title.Caption) < Canvas.TextWidth(Column.Field.AsString) then
    begin
      // --> Se a coluna for menor do que o tamanho(largura) do Field
      if Column.Width < Canvas.TextWidth(Column.Field.AsString) then
      begin
        // --> Acrescenta o tamanho(largura) do field para o tamanho(largura) da coluna
        Column.Width := Canvas.TextWidth(Column.Field.AsString) + 15;
        // --> Acrescenta na tag do field o tamanho atribuido para coluna, até que seja o maior tamanho
        Column.Field.Tag := Canvas.TextWidth(Column.Field.AsString) + 15;
      end
    end;
  end;
  // --> Atualiza a tela
  LockWindowUpdate(0);
end;