Вот так правильно?
Если можна каждую строчку что мы делаем прокоментировать.....
AnsiString p;
p=Edit1->Text;
char c[100];
for(int j=1; j<=p.Length(); j++)
sg1->Cells[j][0]=p[j];
int d= p.Length();
for (int a=2; a<d; a+=6)
{Edit2->Text=Edit2->Text+p[a];}
for (int a=4; a<d; a+=6)
{Edit2->Text=Edit2->Text+p[a];}
for (int a=5; a<d; a+=6)
{Edit2->Text=Edit2->Text+p[a];}
for (int a=1; a<d; a+=6)
{Edit2->Text=Edit2->Text+p[a];}
for (int a=6; a<d; a+=6)
{Edit2->Text=Edit2->Text+p[a];}
for (int a=3; a<d; a+=6)
{Edit2->Text=Edit2->Text+p[a];}
}