indy smtp progressbar

[Tanne]

Hallo.
Habt ihr eine Ahnung, wie es möglich ist, die größe einer Email zu erfahren, bevor sie gesendet wird?
Die Größer würde das Maximum einer Progressbar sein.
So dass man den aktuellen Fortschritt durch idsmtp1work sehen kann.
Nur leider müsste dafür die Größe der Mail bekannt sein.

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




SMTP.Username:=name;
SMTP.Password:=passwort;
SMTP.Host:=host;
SMTP.Port:=port;
SMTP.Connect;
try
SMTP.Send(IdMessage);
finally
SMTP.Disconnect;
end;