IdFTP Upload abrechen/begrenzen

[FordPerfekt]

Hi,

Mach mir grad ein kleines Programm, in welches ich per Drag'n'Drop Dateien reinziehen kann.
Diese werden dann überprüft (nur Bilder zuläßig) und sollen dann anschließend hochgeladen werden!
Dies klappt zwar alles aber es soll konfortabler sein!

Hier meine Uploadroutine:

Delphi-Quellcode:

procedure tform5.upl;
var
i:integer;
begin
try
  idftp1.Connect;
  if idftp1.Connected = true then
   state:=true;
   Memo1.Lines.Add(timetostr(now)+': Connected');
  except
   Memo1.Lines.Add(timetostr(now)+': Error while connecting');
  end;
  if state = true then
   begin
    for I := 0 to Listbox1.items.Count - 1 do
    begin
      idftp1.Put(listbox1.Items[i],ExtractFileName(listbox1.Items[i]),false);
    end;
   end;
end;

Möchte jetzt noch folgendes Verbessern:
- Upload der Dateien soll abgebrochen werden können
- Uploadgeschwindigkeit soll begrenzt werden können
- Wär schön nen Statusbalken zu haben (is aber Nebensache!)

Hmm ja das wärs dann auch schon wieder!

mfg
FordPerfekt