Capturar Mensaje de Error

[narvaez.om]

Sí, algo así, lo qeu pasa es que tengo codigo en el except y no puedo manejar bien el on E, por ejemplo, tengo algo así:

try
---
---
except
cn.Connected := true;
cmdsendmail.Parameters.ParamByName'mail').Value := smail;
cmdsendmail.Parameters.ParamByName('texto').Value := stexto;
cmdsendmail.Parameters.ParamByName('asunto').Value := serror;
cmdsendmail.Execute;
cn.Connected := false;
end
Pero no he podido meter el on E y asignar a una variable el e.message, como que no defino bien la estructura. Podrian ayudarme?