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.