Abir PDF con OLE2

A ver puedes modificar este procedimiento.
Se usa para abrir imágenes, pero ya
Que es un procedimiento con ole
Puede abrir cualquier tipo de archivo.
recuerda crear un objeto en el form
Tipo oleContainer
Para desplegar el archivo en este objeto
Revisa bien las propiedades del
Objeto que te permite más opciones.
PROCEDURE muestra_foto_ole IS
item_id ITEM;
begin
if :pro_fot_especificacion.ruta_foto is not null then
item_id := Find_Item('oleitem');
if id_null(item_id) THEN
muestra_alerta('error', 'No such item: '||item_name);
else
initialize_container(item_id,:pro_fot_especificacion.ruta_foto);
end if;
end if;
end;