No puedes hacer algo "fidedigno" porque la barra de progreso debería de presentarla "sendmail", y ahí no puedes hacer nada.
En todo caso puedes sacar un mensaje del tipo "Procesando...", "Enviando...", etc.
Ejemplo:
Código Delphi
[-]if Sender = JfSpeedButtonEnviaEmail then with ppReport do
begin
Screen.Cursor := crHourGlass;
showmessage('Procesando datos...');
application.processmessages;
EmailSettings.ShowEmailDialog := False;
EmailSettings.ReportFormat := 'PDF';
EmailSettings.FileName := Listado;
EmailSettings.Subject := 'Listado de ' + vNombr;
EmailSettings.Recipients.Text := '';
showmessage('Enviando email...');
application.processmessages;
SendMail;
Screen.Cursor := crDefault;
showmessage('Proceso concluido.');
application.processmessages;
end;
De todas formas, los programas generadores de informes suelen tener componentes de ese tipo (barra progreso), revisa el tuyo por si tiene algo de eso.