void __fastcall TForm6::Button1Click(TObject *Sender)
{
NMFTP1->Host = Edit1->Text;
NMFTP1->UserID = Edit2->Text;
NMFTP1->Password = Edit3->Text;
NMFTP1->Connect();
NMFTP1->Upload(Edit4->Text, Edit5->Text);
NMFTP1->Disconnect();
Application->MessageBox("Áàçà óñïåøíî îáíîâëåíà.", "Âíèìàíèå!", MB_OK);
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FormActivate(TObject *Sender)
{
Edit1->Text="***";
Edit2->Text="***";
Edit3->Text="***";
Edit4->Text="\\\\ffcsrv\\BSSFLS\\nvfi\\base.mdb";
Edit5->Text="http/base.mdb";
}