Invalid Pointer Operation

struct positions
{
int number;
AnsiString filename;
};
class replacess
{
public:
vector <positions> position;
AnsiString path_to_name(AnsiString);  /*функция возвращает имя файла из полного пути*/
bool delete_old_tag(AnsiString,AnsiString);/*функция удаляет ненужный кусок текста(полный путь) и сохраняет в векторе структур стартовую позицию и имя файла*/
};

bool replacess::delete_old_tag(AnsiString file,AnsiString start_tag)
{
  int count=0;
  int index=file.Pos(start_tag);
  int tempindex=index;
  positions one;
  one.number=index;
     while(file[index+start_tag.Length()]!=' ')
      {
      index++;
      count++;
      if(index==file.Length()-1)
      {ShowMessage("Не найдено css");
      break;}
      }
        char *tempfile=new char;
       int i;
       for(i=0;i<count;i++)
       {
        tempfile[i]=file[tempindex+i+start_tag.Length()];
       }
       AnsiString t=tempfile;
       ShowMessage(t+"  "+IntToStr(i));
    one.filename=path_to_name(tempfile);
    position.push_back(one);
    file.Delete(tempindex,count);
    delete tempfile;
    if(index<file.Length()-1){
    return true;
    }
    else{
    return false;
    }
    }
AnsiString replacess::path_to_name(AnsiString path)
{
  int index=path.Length();
  int temp_index=index;
  int count=0;
    while(path[index]!='/')
     {
     index--;
     count++;
     if(index==1)
     break;
     }
  int result=temp_index-count;
  if(count>0&&index!=1)
  {path.Delete(1,result);}
  return path;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
replacess p;
AnsiString a=Memo1->Text;
p.delete_old_tag(a,Edit10->Text);
Label12->Caption=p.position[0].filename;
Memo1->Text=a;
}

 char *tempfile=new char; // указатель на ОДИН символ
 int i;
 for(i=0;i<count;i++)
 {
   tempfile[i]=file[tempindex+i+start_tag.Length()]; // пихаем много чего, только КУДА?