procedure Tbg3.upClick(Sender: TObject);
var i: Integer;
begin
      if bg1.adresse1.Text = '' then break;
      idftp1.Disconnect;
      idftp1.Host := bg1.adresse1.Text;
      idftp1.Username := bg1.user1.Text;
      idftp1.Password := bg1.pass1.Text;
      try
        idftp1.Connect(true,10000);
        if idftp1.Connected then
        begin
          for i := 0 to 9 Do
          begin
            if ser_dat1[i] = '' then break;
            idftp1.put(ser_dat1[i],ser_dat1[i]);
          end;
        end;
      except
        raise;
      end;
end;

procedure TForm1.CopyFileWithProgressBar1(Source, Destination: string);
var
  FromF, ToF: file of byte;
  Buffer: array[0..4096] of char;
  NumRead: integer;
  FileLength: longint;
begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);
  with Progressbar1 do
  begin
    MinValue := 0;
    MaxValue := FileLength;
    while FileLength > 0 do
    begin
      BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
      FileLength := FileLength - NumRead;
      BlockWrite(ToF, Buffer[0], NumRead);
      Progress := Progress + NumRead;
    end;
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFileWithProgressBar1('d:\blub.txt', 'c:\blabla.txt');
end;