Datei mit Fortschrittsanzeige auf einen Ftp-Server hochlade

[Dark-L0rd]

Das funzt aber, irgendwie net, so wie ich das gemacht habe...

Delphi-Quellcode:

procedure Tbg3.upClick(Sender: TObject);
var i: Integer;
begin
      if bg1.adresse1.Text = '' then exit;;
      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 Tbg3.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
  begin
  if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax;
end;

procedure Tbg3.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
end;

procedure Tbg3.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Position := 0;
end;

Wo ist da der Denk-Fehler???
Schon mal Danke für die Hilfe.