... var AnchoTitulo: Integer; begin with DBGrid1.Columns[0] do AnchoTitulo:= Length(Title.Caption) * Canvas.TextHeight(Title.Caption); ... end;