FTP through SOCKS5

Hi,

I need to connect to a remote (Internet) FTP server using SOCKS5. I'm using Delphi 5 Ent and Indy 9.

This is what I've got so far (thanks to DragonSlayer):

- I can connect to the FTP server, change directories up and down and disconnect.
- List, Get and Put commands don't work at all giving '10051 Socket error' which means 'Network unreachable' (if I'm not mistaken).

I have one TIdFTP component (in passive mode) on a form with Host, Port, Username, Password properties set in desing-time. The code is:

procedure TForm1.Button5Click(Sender: TObject); // quick connect
var i: integer;
begin
 try
   IdFTP1.Passive := true; // passive mode
   // SOCKS
   IdFTP1.IOHandler := TIdIOHandlerSocket.Create(IdFTP1);
   IdFTP1.Socket.SocksInfo := TIdSocksInfo.Create(IdFTP1.Socket);
   with IdFTP1.Socket.SocksInfo do begin
     Host := edtSHost.Text;
     Port := StrToInt(edtSPort.Text);
     Authentication := saNoAuthentication;
     Username := '';
     Password := '';
     Version := svSocks5;
   end;

   IdFTP1.Connect;

   Label3.Caption := IdFTP1.RetrieveCurrentDir;
   RichEdit1.Lines.Add('->System: '+IdFTP1.SystemDesc);
   RichEdit1.Lines.Add('->Login:');
   for i := 0 to IdFTP1.LoginMsg.Text.Count - 1 do begin
     RichEdit1.Lines.Add(IdFTP1.LoginMsg.Text[i]);
   end;
   RichEdit1.Lines.Add('->Greeting:');
   for i := 0 to IdFTP1.Greeting.Text.Count - 1 do begin
     RichEdit1.Lines.Add(IdFTP1.Greeting.Text[i]);
   end;

   RichEdit2.Lines.Clear;
//    IdFTP1.List(RichEdit2.Lines, '*.*', false); // <----- error !!!
 except
   ShowMessage('Connect failed');
 end;

end;

Thanks,
Geo