(Resolvido) Colocar ProgressBar no FTP

[AllNet]

Olá pessoal, estou usando o componente IdFTP para fazer upload de arquivos para um servidor ftp, uso o seguinte código:

with IdFTP1 do
  try
    Username := edtUsuario.Text;
    Password := edtSenha.Text;
    Host := edtHost.Text;
    Connect;
    ChangeDir(dir);
  finally
  end;
  try
    IdFTP1.Put(line2, name2);
  finally
  IdFTP1.Disconnect;
  end;

Como faço para colocar um ProgressBar para mostrar o envio do arquivo?

Obrigado.

[Jhonas]

exemplos

http://scriptbrasil.com.br/forum/index.php?showtopic=140033

http://www.mail-archive.com/twsocket@elist...g/msg11921.html

http://www.planetadelphi.com.br/dica/7486/...ssbar-e-thread-

abraço

[AllNet]

http://www.planetadelphi.com.br/dica/7486/...ssbar-e-thread-

Obrigado Jhonas