como mostrar barra de progreso

[Jere_84]

Hola club, les comento que nunca hice una barra de progreso. Estoy haciendo un programa que abre el cliente mail predeterminado de la pc husped. Esto muchas veces demora algunos segundos y para que no desespere el usuario me gustaria mostrar una barra de progreso con algun label que diga Cargando... o algo por el estilo. Lo cierto es que no he encontrado mucho y los ejemplos no me sirvieron. Saben como pòdria englobar este codigo con una barra y que cuando termine de ejecutarse la barra se cargue y desaparezca. como se hace esto?

mi codigo delphi.

Código Delphi [-]
  if Sender = JfSpeedButtonEnviaEmail then
    with ppReport do
    begin
      Screen.Cursor := crHourGlass;
      EmailSettings.ShowEmailDialog := False;
      EmailSettings.ReportFormat := 'PDF';
      EmailSettings.FileName := Listado;
      EmailSettings.Subject := 'Listado de ' + vNombr;
      EmailSettings.Recipients.Text := '';
      SendMail;
      Screen.Cursor := crDefault;
    end;

Saludos.