Подключение к ftp

Вот есть код...НО файл не проверят..Выдаёт ошибку подключения

procedure TForm1.Button2Click(Sender: TObject);
var
ftp: TIdFTP;
ms: TMemoryStream;
begin
ftp := TIdFTP.Create(Application);
ms := TMemoryStream.Create;
try
try
ftp.Host := 'test'; // ftp адрес сервера
ftp.Port := 21;
ftp.Username := 'test'; //логин
ftp.Password := 'test'; //Пароль
ftp.Connect(true, 2000);
AssErt(ftp.Connected);
ftp.ChangeDir('/public_html'); // Установить папку на сервере
//примем файл с сервера и сохраним в любом месте
ftp.Get('test.jpg', 'test.jpg', true); //Файл Откуда-Куда
ShowMessage('Найдено');
finally
ms.Free;
ftp.Free;
end;
except
ShowMessage('Ошибка');
end;

Заранее спасибо за помощь
С меня сябка

 

не шарю в делфи, но зачем два
try
try

 

Далее идёт except

 

ну лично у меня
try
действие
catch
действие в случае ошибки
end try
ну можно еще finally

 

Сейчас попробую
не выходит

 

Код переписал...Тему можно делите