[Elza]

День добрый, существует код отправки файла на ftp сервер:

Код:

procedure TForm1.bFileSendClick(Sender: TObject);
begin
With IdFTP1 do
IdFTP1.Host:=('*****');
IdFTP1.Port:=21;
IdFTP1.Username:='*****';
IdFTP1.Password:='*****';
try
IdFTP1.Connect;
IdFTP1.ChangeDir('/Home/');
if FileExists (ExtractFilePath(ParamStr(0))+'Update.rar') then IdFTP1.Put(ExtractFilePath(ParamStr(0))+'Update.rar','Update.rar',false);
 finally
IdFTP1.Disconnect;
end;

Проблема в том, что сервер иногда бывает не доступен. Хотелось бы узнать, как сделать, что бы, при не возможности отправить файл на сервер, отправить его на запасной. Подскажите пожалуйста=(