Переименование колонок в DBGrid

var
    DBGrid: TDBGrid;
...............................
 
 CurrFieldName:='';
     for i := 0 to DBGrid.Columns.Count-2 do
        begin
          CurrFieldName:=trim(DBGrid.Columns[i].Title.Caption);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'd', '', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm01', ' янв.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm02', ' фев.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm03', ' мар.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm04', ' апр.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm05', ' май.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm06', ' июн.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm07', ' июл.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm08', ' авг.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm09', ' сен.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm10', ' окт.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm11', ' ноя.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Columns[i].Title.Caption:=StringReplace(CurrFieldName, 'm12', ' дек.', [rfReplaceAll, rfIgnoreCase]);
          DBGrid.Refresh;
        end;