[droguerman]

pareciera una violación de segmento, intenta (pseudocódigo):

Código Delphi [-]
c := CoApplicationBCom.create;
if not (c = nil) then c.funcion1;