🚀 go-pugleaf

I made some late changes, and now I think that this
must work:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TMemoryStream *MS_OLD = NULL;
   TMemoryStream *MS_NEW = NULL;
   try
   {
      try
      {
         MS_OLD = new TMemoryStream;
         MS_NEW = new TMemoryStream;

         MS_OLD->LoadFromFile( ExtractFilePath( ParamStr(0) ) + 
"file.txt" );
         for ( int i=0; i<MS_OLD->Size-1 ; i++ )
         {
            if (
                 (((char*)(MS_OLD->Memory))[i] == '\r') &&
                 (((char*)(MS_OLD->Memory))[i+1] == '\n')
               )
            {
               ++i;
            }
            else
            {
               MS_NEW->WriteBuffer( &((char*)(MS_OLD->Memory))[i] , 1 );
            }
         }
         MS_NEW->SaveToFile( ExtractFilePath( ParamStr(0) ) + "file2.txt" );
      }
      catch (  const Exception &e )
      {
         ShowMessage( "Error" );
      }
   }
   __finally
   {
      if ( MS_OLD )
         delete MS_OLD;
      if ( MS_NEW )
         delete MS_NEW;
   }
}


-- 
Best regards,
Vladimir Stefanovic