[X-JABS]

Hola Foro, pues he investigado lo siguiente pero con el componente de FTP:

procedure TMainForm.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then
ProgressBar1.Max := AWorkCountMax
else
ProgressBar1.Max := BytesToTransfer;
End;

procedure TMainForm.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
Begin
ProgressBar1.Position := AWorkCount;
End;

Cuando la Variable BytesToTransfer anteriormente lo toma de

BytesToTransfer := IdFTP1.Size(Name);

Cuando ese dato en SMTP, no se de donde tomarlo ya que no tiene la misma propiedad