como capturar una excepcion al enviar mail smtp indy gmail

[martini002]

Hola muchachos, vine a revivir este fantasma, esto mismo me pasa a mi,
y eso mismo que el amigo kapcomx queria hacer tambien me gustaria hacerlo,
capturar la excepcion y en vez que salga ese error en ingles, aparezca algo que yo coloque

ejemplo mi codigo de envio:

Código Delphi [-]
procedure TPantallaPrincipal.EnviarMensaje(host:string;nombre:string;password:string;port:integer;desde:string  ;hasta:string;asunto:string;cuerpo:string;adjunto:string);
Var
  Adjuntar:TIdAttachmentFile;
begin
  Adjuntar:= nil;
  IdMessage1.Clear;
  idMessage1.FromList.EMailAddresses := Desde;
  idMessage1.Recipients.EMailAddresses := Hasta;
    idMessage1.Subject := Asunto;
  idMessage1.Body.Add(Cuerpo);
     idSMTP1.Username := Nombre;
  idSMTP1.Password := Password;
  if Adjunto <> '' then
    begin
      if FileExists(Adjunto) then
        Adjuntar:=TIdAttachmentFile.Create(idMessage1.MessageParts, Adjunto);
        Adjuntar.DisplayName := Adjunto;
        Adjuntar.FileName := Adjunto;
    end;
  if idSMTP1.Connected then
    begin
      idSMTP1.Disconnect;
      idSMTP1.Connect;
    end
  else
    begin
      idSMTP1.Connect;
    end;

  try
    idSMTP1.Send(IdMessage1);
    ShowMessage('Mensaje enviado exitosamente!');
  except
    ShowMessage('Error al enviar mensaje!');//Esto nunca se muestra
  end;

  if Assigned(Adjuntar) then
    begin
      Adjuntar.Free;
      Adjuntar:= nil;
    end;
ENd;

Mas especificamente aqui:

Código Delphi [-]
  try
    idSMTP1.Send(IdMessage1);
    ShowMessage('Mensaje enviado exitosamente!');
  except
    ShowMessage('Error al enviar mensaje!');//Esto nunca se muestra cuando salta la excepcion de timeout por ejemplo
  end;

que creen que pueda ser?
Saludos