Из 13-ричной системы перевести в 8-ричную

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
char *endptr;
AnsiString C="0123456789ABC";
if (Edit1->Text!="")
{try
 {Edit1->Color=clYellow;
 if((Edit1->Text[1]=='-')&&(Edit1->Text.Length()==1)) return;
 if (C.AnsiPos(Edit1->Text[Edit1->Text.Length()])==0)
 throw EConvertError("");
 value=strtol(Edit1->Text.c_str(),&endptr,9);
 if ((Edit1->Text.Length()>6)&&(value==MaxInt))
 throw EIntOverflow("");
 } catch (EConvertError &)
 {if (Edit1->Text!='-')
 ShowMessage("Возможны лишь цифры от 0 до C");
 Edit1->Text=Edit1->Text.SetLength(Edit1->Text.Length()-1);
 Edit1->SelStart=Edit1->Text.Length();
 }
 catch (EIntOverflow &)
 {ShowMessage("Слишком большое число");
 Edit1->Text=Edit1->Text.SetLength(Edit1->Text.Length()-1);
 Edit1->SelStart=Edit1->Text.Length();
 }
 catch (...)
 {ShowMessage("Неизвестная исключительная ошибка");}
 }        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int i=0, x=0,k=0,b[20],l=-1;
    char a[20],v[20],*p=a; //*a[20]={'\0'},
    strcpy(a,Edit1->Text.c_str());//*a=Edit1->Text.c_str();
 
 
    
while(*(p+1)) ++p;
//дальше не непонятно как и что(
}