All below SQL results are visible throw usual TDBGrid.
Just execute simple select:
-----------------------------------------
SELECT piece,sql_text
FROM v$sqltext_with_newlines q, v$session s
WHERE sid in (select sid from v$session where s.last_call_et = 0 and username = user)
and...