[annieruci]

Perfecto solo cambie dos cosas para que se adaptara mejor al asunto
procedure CMAfterShow(var Msg: TMessage);
por
procedure CMAfterShow(var Message: TMessage);

y

try
if ShowModal = mrcancel then
Self.Close;

por

try
if ShowModal = mrok then
Self.Close;

Gracias roman una vez mas

Saludos