Запись в буффер и обработка

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        String filename;
        TFileStream* fstream;
        byte* rawData;
        int filesize;
 
if(OpenDialog1->Execute()){
        fstream=0;
        filename=OpenDialog1->FileName;
        fstream=new TFileStream(filename,fmOpenRead|fmShareExclusive);
        filesize=fstream->Size;
        sizeLabel->Caption="Size: "+String(filesize/1024)+"kb";
        filenameLabel->Caption=filename;
        rawData=new byte[filesize];
        fstream->Seek(0,soFromBeginning);
        fstream->ReadBuffer(rawData,filesize);
        fstream->Free();
        progress();
 }
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 TFileStream *File;
 AnsiString In, Out, pass;
 
 pass=Edit1->Text;
 
 if(!OpenDialog1->Execute()) return;
 File = new TFileStream(OpenDialog1->FileName, fmOpenRead);
 In.SetLength(File->Size);
 File->Read(In.c_str(), File->Size);
 delete File;
 
 for(int x = 1; x < In.Length()+1; x++)
  Out += (char)(In[x] ^ pass[x % pass.Length() + 1]);
 
 
 if(!SaveDialog1->Execute()) return;
 File = new TFileStream(SaveDialog1->FileName, fmCreate);
 File->Write(Out.c_str(), Out.Length());
 
  delete File;
 
 ShowMessage("Save OK");
 }

void __fastcall TDecoder::loadFileButtonClick(TObject *Sender)
{
  TMemoryStream *fs = new TMemoryStream;
  TFileStream *File;
        String filename, In, Out, pass;
        TFileStream* fstream;
        byte* rawData;
        int filesize;
 
 
 pass=Edit1->Text;
 
 if(!OpenDialog1->Execute()) return;
 File = new TFileStream(OpenDialog1->FileName, fmOpenRead);
 In.SetLength(File->Size);
 File->Read(In.c_str(), File->Size);
 delete File;
 
 for(int x = 1; x < In.Length()+1; x++)
  Out += (char)(In[x] ^ pass[x % pass.Length() + 1]);
 
 
 fs->Read(Out.c_str(), fs->Size);
  filesize=fs->Size;
  rawData=new byte[filesize];
  fs->ReadBuffer(rawData,filesize);
  fs->Free();
}