como mostrar barra de progreso

[Casimiro Noteví]

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.

[[Chris]]

Hola!

También puedes darle un estilo adecuado a la barra de progreso. He escrito un código de ejemplo en mi blog:
http://waodelphi.wordpress.com/2012/...eso-infinitas/