Сделать ширину стобца DBGrid равное ширине названия стобца

[Dozent]

Здраствуйте подскажите плз как сделать шириу стоблца DBGrid равной ширине названия стоблца, я думал сделать по длине строки но допустим длина строки в 23 символа далеко не равно ширине равной 23

For i:=1 to DM[y+1].Query.FieldCount-1 do
              begin
               if pos('*',temp_counts)>0 then
                begin
                 M.Columns.Items[i].Width:=Length(copy(temp_counts, 1, pos('*',temp_counts)));
                 M.Columns[i].Title.Caption:=copy(temp_counts, 1, pos('*',temp_counts)-1);
                 delete(temp_counts, 1, pos('*',temp_counts));
                end;
              end;

Подскажите плз

[Dozent]

                 M.Columns.Items[i].Width:=(M.Font.Size-2)* Length(copy(temp_counts, 1, pos('*',temp_counts)));

Разобрался

[Dozent]

А подскажи как убрать какойнить столбце из БДГрид,
нашёл)

[evg_m]

как сделать шириу стоблца DBGrid равной ширине названия стоблца

M.columns.Items[i].width:=M.Canvas.Textwidth(M.columns.Items[i].Title.Caption);

colimns.Items[i].visible:=false; рекомендую

columns.Items[i].Free; не рекомендую