select FUNC_GET_DBMS_OUTPUT from dual;

create or replace function FUNC_GET_DBMS_OUTPUT 
return clob is
   Result   clob;
   sLine    varchar2(255);
   iStatus  integer;
begin
   DBMS_LOB.CreateTemporary(Result,true);
   
   loop                  
      DBMS_OUTPUT.GET_LINE (sLine, iStatus); 
      exit when iStatus<>0;
      Result:=Result||sLine||chr(13)||chr(10);
   end loop;

   return(Result);
end FUNC_GET_DBMS_OUTPUT;

var
   Q     : TOracleQuery; // DOA
   sTxt  : string;
begin
   Q := TOracleQuery.Create(nil);
   try
      Q.Session := .....
      
      Q.DeclareVariable(':RES', otCLOB);

      Q.SQL.Add('declare');
      Q.SQL.Add('   sLine    varchar2(255);');
      Q.SQL.Add('   iStatus  integer;');
      Q.SQL.Add('begin');
      Q.SQL.Add('   DBMS_LOB.CreateTemporary(:RES, true);');
      Q.SQL.Add('');
      Q.SQL.Add('   loop');
      Q.SQL.Add('      DBMS_OUTPUT.GET_LINE (sLine, iStatus);');
      Q.SQL.Add('      exit when iStatus<>0;');
      Q.SQL.Add('      :RES := :RES||sLine||chr(13)||chr(10);');
      Q.SQL.Add('   end loop;');
      Q.SQL.Add('end;'   

      Q.Execute();
   
      sTxt := Q.GetVariable(':RES');
   finally
      FreeAndNil(Q);
   end;
   
   ShowMessage('DBMS_OUTPUT = '+#13#10+
               sTxt);
end;