Montar um software de transf. FTP

procedure TForm1.Button1Click(Sender: TObject);
var
dir,line2,name2 : string;

begin

  dir := ´/public_html/felipe/´; // caminho dentro do servidor
  line2:= ´c:\arq.txt´;        // caminho do arquivo a ser enviado
  name2:= ´novonome.udp´;

  with IdFTP1 do try
   begin
    Username := ´username´;
    Password := ´senha´;
    Host := ´ftp.xxxx.com.br´;
    Connect;
    ChangeDir(dir); // muda o diretorio
  end;

    try
      IdFTP1.Put(line2, name2); // envia o arquivo!
    finally
      IdFTP1.Disconnect;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
dir,line2,name2 : string;

begin

  dir := ´/public_html/felipe/´; // caminho dentro do servidor
  line2:= ´c:\arq.txt´;        // caminho do arquivo a ser enviado
  name2:= ´novonome.udp´;

  with IdFTP1 do try
   begin
    Username := ´username´;
    Password := ´senha´;
    Host := ´ftp.xxxx.com.br´;
    Connect;
    ChangeDir(dir); // muda o diretorio
  end;

    try
      IdFTP1.Put(line2, name2); // envia o arquivo!
    finally
      IdFTP1.Disconnect;
    end;
end;

  with IdFTP1 do try

HoraInicio := Time;
ProgressBar.Position := 0;
ProgressBar.Max := AWorkCountMax;

ProgressBar.Position := AWorkCount;
TaxaTransferencia := AWorkCount / SecondsBetween(Time,HoraInicio); [quote]


POREM NÃO FAÇO IDÉIA QUE TIPO DE VARIALVEL COLOCO NAS VARIAVEIS [b]HORAINICIO[/b] E [b]TAXA DE TRANFERENCIA[/b]

valeu

wagner