Поиск по текстовому файлу...

String SubSTR, s;
fstream f;
fstream file;
if(Key == 13)
{
f.open("C:\\Documents and Settings\\VtaMC\\Desktop\\telphoneee.txt");
if(f != NULL)
{
            do
            {
 
            }
            while(EOF);
}
else
ShowMessage("Файл не найден!!!");
};

  for(int i = 0; i < list->Count; i++){
    if(list->Strings[i].Pos(Edit1->Text)){
      //нашли и пишем куда надо...
    }
  }

fstream f;
if(Key == 13)
{
f.open("C:\\Documents and Settings\\VtaMC\\Desktop\\telphoneee.txt");
f.close();
if(f != NULL)
{
list->LoadFromFile("C:\\Documents and Settings\\VtaMC\\Desktop\\telphoneee.txt");
    Memo1->Clear();
    for(int i = 0; i < list->Count; i++)
    {
        if(list->Strings[i].Pos(Edit1->Text))
        {
        Memo1->Lines->Append(list->Strings[i]);
        };
  };
}
else
ShowMessage("Файл не найден!!!");
};

AnsiString fname = 
"C:\\Documents and Settings\\VtaMC\\Desktop\\telphoneee.txt";
if(Key == 13)
{
if(FileExists(fname))
{ 
    list->LoadFromFile(fname);
    Memo1->Clear();
        for(int i = 0; i < list->Count; i++)
        {
                if(list->Strings[i].Pos(Edit1->Text))
                {
                Memo1->Lines->Append(list->Strings[i]);
                };
  };
}
else
ShowMessage("Файл не найден!!!");
};

if(Edit1->Text.Length() <= 3){
  ShowMessage("Error");
  return;
}

AnsiString txt = list->Strings[i];
int Pos = 0;
while((Pos = txt.Pos(",,,")) != 0){
  txt.Delete(Pos, 3);
  txt.Insert(" ", Pos);
}
Memo1->Lines->Append(txt);