Problemas com TFTPClient

[rogerio]

Olá pessoal,

Alguem está conseguindo utilizar esta classe TFTPClient ?
Tem algum exemplo funcional para enviar arquivos?
Como habilitar o modo passivo (passive ftp) ?

No envio de arquivos, (STOR) está ocorrendo este erro:

Descricao do errro Error BASE/1004 Message not found: TSOCKET:SETHEADER

Lista Cham.
===========
Chamada de: tobject.prg => TSOCKET:ERROR(172)
Chamada de: tobject.prg => TSOCKET:MSGNOTFOUND(205)
Chamada de: tobject.prg => TSOCKET:SETHEADER(0)
Chamada de: TFtpCli.PRG => (b)TFTPCLIENT:STOR(0)
Chamada de: TFtpCli.PRG => (b)TFTPCLIENT:STOR(0)
Chamada de: TSOCKET.PRG => (b)TSOCKET:TSOCKET(0)
Chamada de: => TSOCKET:ONACCEPT(0)
Chamada de: TSOCKET.PRG => TSOCKET:HANDLEEVENT(0)
Chamada de: TSOCKET.PRG => (b)TSOCKET:NEW(0)
Chamada de: WINDOW.PRG => TWINDOW:ASYNCSELECT(0)
Chamada de: => TWINDOW:HANDLEEVENT(0)
Chamada de: WINDOW.PRG => _FWH(0)
Chamada de: => SYSREFRESH(0)
Chamada de: TFtpCli.PRG => TFTPCLIENT:DOWAIT(0)
Chamada de: TFtpCli.PRG => TFTPCLIENT:STOR(0)

[]'s

Rogerio