Capturar Mensaje de Error

[jachguate]

Hola.

Supongo que bastaría con un begin/end:

Código Delphi [-]
try
  sentencias;
except
  on E:Exception do
  Begin
    cn.Connected := true;
    cmdsendmail.Parameters.ParamByName'mail').Value := smail;             
    cmdsendmail.Parameters.ParamByName('texto').Value := stexto;
    cmdsendmail.Parameters.ParamByName('asunto').Value := serror + e.message;
    cmdsendmail.Execute;
    cn.Connected  := false;
  end;

Aprovecho para invitarte a aprender a usar las etiquetas [code], [delphi], [sql] y [php] disponibles en el club para publicar trozos de código. ¿Notas la diferencia?

Hasta luego.