Работа с файлом- остановка чтения

fstream myfile;
myfile.open("f:\\list.txt",ios::in);
this->timer1->Start();
for(;;)
{
if(myfile.read("f:\\list.txt",ios::in)==NULL)break;
}

    
while (!input.eof()) {   //пока не конец файла
    if (stop) {      //если нажали кнопку "стоп"
        break;
    }
    input >> buff;  //чтение
    Memo1->Text = buff; //ет можешь удалить - просто чтоб видно было что читает
    Application->ProcessMessages();  //ет чтоб форма не зависала(хотя всеравно чуть будет)
    Sleep(100); //делаем паузу а то все прочитает и на кнопку нажать не успеешь
}

char *buff = new char[1024];

void __fastcall ProcessFile(bool &);

void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
  int iFileHandle;
  int iFileLength;
  int iBytesRead;
  char *pszBuffer;
  if (OpenDialog1->Execute())
  {
    try
    {
      iFileHandle = FileOpen(OpenDialog1->FileName, fmOpenRead);
      iFileLength = FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      pszBuffer = newchar[iFileLength+1];
      iBytesRead = FileRead(iFileHandle, pszBuffer, iFileLength);
      FileClose(iFileHandle);
 
      for (int i=0;i<iBytesRead;i++)
      {
        StringGrid1->RowCount += 1;
        StringGrid1->Cells[1][i+1] = pszBuffer[i];
        StringGrid1->Cells[2][i+1] = IntToStr((int)pszBuffer[i]);
      }
      delete [] pszBuffer;
    }
    catch(...)
    {
      Application->MessageBox("Can't perform one of the following file operations: Open, Seek, Read, Close.", "File Error", IDOK);
    }
  }
}

if (OpenDialog1->Execute())
  {
   AnsiString filename=OpenDialog1->FileName;
   ... // получили имя файла, а дальше делайте что хотите