Socks ftp indy

[ujanin]

Пытаюсь передать фаил через сокс по фтп используя indy. Гуру подскажите что в коде не так, а то я токо 2й день в программировании. Ругается вот так socket error #10061, но скорей всего код карявый.

PHP код:

procedure TForm1.Button3Click(Sender: TObject);
begin
try
     IdSocksInfo1.Version:=svSocks5;
      IdSocksInfo1.Host:= xxx.xxx.xxx.xxx';
      IdSocksInfo1.Port:= xxxx;
      IdSocksInfo1.Authentication:= saNoAuthentication;
      IdSSLIOHandlerSocketOpenSSL1.TransparentProxy:=IdSocksInfo1;
      IdFTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
      memo2.Lines.Add('подключился к прокси');
except
     memo2.Lines.Add('не могу подцепиться к проксе');
end;
try

        IdFTP1.host:='ftp.site.ru';
        IdFTP1.username:='petya';
        idFTP1.password:='parol';
        IdFTP1.Connect;

   if idftp1.connected then
   begin
        IdFTP1.PUT('d:\fail.txt');
         memo2.Lines.Add('отправил фаил');
        IdFTP1.Disconnect;
   end;
except
   memo2.Lines.Add('нет коннекта');

end;
end; 


[DjDram]

uses
.... IdFTP, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase;

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TIdFTP;
ms: TMemoryStream;
begin
ftp:=TIdFTP.Create(Application);
ms:=TMemoryStream.Create;
try
try
ftp.Host:='xxx.xxx.xxx.xxx';// ftp адрес сервера
ftp.Port:=21;
ftp.Username:='xxxxxx';//логин
ftp.Password:='xxx';//Пароль
ftp.Connect;
AssErt(ftp.Connected);
ftp.ChangeDir('/');//Установить папку на сервере
ftp.Put('c:\file.txt','file.txt',fa lse); //Файл Откуда-Куда
ShowMessage('Отправлено');
finally
ms.Free; ftp.Free;
end;
except
ShowMessage('Неудачная попытка отправки файла на сервер');
end;
end;