TFileStream *FS;
  FTPC->Host=eHost->Text;
  FTPC->Port=sePort->Value;
  if(OD->Execute())
   {
    FS=new TFileStream(OD->FileName,fmOpenRead);
    FTPC->Put(FS,ExtractFileName(OD->FileName));
    FS->Free();
   }

void __fastcall TForm1::FTPSWriteFile(TObject *Sender,
      AnsiString &FileName, const TPeerInfo &PeerInfo, bool &GrantAccess,
      TStream *&AStream, bool &FreeStreamOnComplete)
{
 TFileStream *FS;
  if(MessageDlg("File from: "+PeerInfo.PeerIP+". Accept?", mtConfirmation,
    TMsgDlgButtons() << mbYes << mbNo, 0)==mbYes)
    {GrantAccess=1;}
 else
    {GrantAccess=0;}
 try{
 AnsiString FN=ExtractFileName(repl(FileName,'/','\\'));
 mLog->Lines->Add("Receiving "+FN);
 FS=new TFileStream(FPath+FN,fmCreate | fmShareExclusive);
 AStream=FS;
 FreeStreamOnComplete=1;
 }catch(...){mLog->Lines->Add("Error on Write File!"); GrantAccess=0; FS->Free();}
}