Problem mit ProgressBar beim versenden von Emails - IdSMTP

[hitmiccs]

Hallo!

Ich hab ein Problem mit dem versenden von Emails. Da die Anhänge schonmal etwas größer werden, würd ich gerne den Fortschritt beim senden mit einer ProgressBar anzeigen. Ich benutze zum senden die Indy Komponente IdSMTP, jedoch reagiert die ProgressBar beim senden der Email überhaupt nicht.

Mein Code (den ich mir auch schon zusammengesucht hab) sieht so aus:

Delphi-Quellcode:

function Dateigroesse (Datei : String) : Integer;
var SRec: TSearchRec;
begin
 Result := -1;
 if FindFirst(Datei, faAnyFile, SRec) = 0 then
 try Result := SRec.Size finally FindClose(SRec) end;
end;

procedure Tmaengel.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
var FS:TFileStream;
begin
 FS := TFileStream.Create(dmx2send,fmOpenReadWrite) ;
 choose_adress.ProgressBar1.Max := FS.Size ;
 FS.free ;
end;

procedure Tmaengel.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
 choose_adress.ProgressBar1.Position := AWorkCount;
end;

"AWorkCount" ist irgendwie immer Null - mehr konnt ich noch nicht herausfinden.

Wenn jemand eine zündende Idee hätte, wäre super
Grüße, hitmiccs