Как сделать процентный формат в dbgrid?

//---------------------------------------------------------------------------
void Search(AnsiString s, int &first, int &last, char c)
{
 int i;
 int L;
 L=s.Length();
 for (i=1, last=0; i<=L; ++i)
 {
  if (s[i]==c)
  {
   last=i;
  }
 }
 for (i=L, first=0; i>0; --i)
 {
  if (s[i]==c)
  {
   first=i;
  }
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TFormData::ADOTableEmployeeDistrictFactorSetText(
      TField *Sender, const AnsiString Text)
{
 int pf;
 int pl;
 int sf;
 int sl;
 int df;
 int dl;
 int L;
 int p;
 AnsiString s;
 L=Text.Length();
 Search(Text, pf, pl, '%');
 if (pf==L)
 {
  Search(Text, sf, pl, ' ');
  p=0;
  if (sl==0)
  {
   p=pl-1;
  }
  if (sf=pf-1)
  {
   p=sf-1;
  }
  s=Text.SubString(1, p);
  ADOTableEmployeeDistrictFactor->Value=StrToFloatDef(s, 0.0)/100.0;
 }
 else
 {
  ADOTableEmployeeDistrictFactor->Value=StrToFloatDef(Text, 0.0);
 }
}
//---------------------------------------------------------------------------