TStoredProcedure y Oracle CLOBs

[Tino]

Por si sirve de algo, este es el plsql que quisiera "meter" en Delphi:

DECLARE
   vXMLParam VARCHAR2(200) := 
	   '<?xml version="1.0" encoding="iso-8859-1"?>' || 
	   '<parametros>' ||
	   '<PARAMNIF>394002</PARAMNIF>' || 
	   '</parametros>';
   cDoc CLOB;
   err VARCHAR2(2000);
   vId NUMBER;
BEGIN
 
   SELECT campo3 INTO vId
   FROM tabla
   WHERE campo1 = 'PRUEBA' AND campo2='PRUEBA';
 
   dbms_LOB.CreateTemporary(cDoc, TRUE);
   dbms_LOB.Open(cDoc, dbms_LOB.LOB_READWRITE); 
   cDoc := Fu_Instancia_XML(vId, vXMLParam);

   PrintCLOBOut(cDoc); <== E S T O   E S   L O   Q U E	N E C E S I T O 
 
   dbms_lob.Close(cDoc); 
   dbms_lob.freetemporary(cDoc); 
 
END;

Saludos.