proxy setup

[Silvio]

I'm working with ftp send and get files
the function run ok

MsgRun( "Conectando al Servidor via FTP...", "Por favor, espere",{ || oInternet := TInternet():New(),;
If( Empty( oInternet:hSession ),MsgAlert( "Internet no disponible!" ),),;
oFTP := TFTP():New( cFTPSite, oInternet,aUsuario,aPassword )})



My problem ow is to insert the possibility to set also a proxy before this function (msgrun() ) because some customer could have a proxy before to go out to

internet


How I can make to set this proxy ?

Any sample ?