Campo Bytea no Postgres

Boa tarde,

Tenho uma tabela no Postgres no formato Bytea, e tenho a seguinte rotina no Delphi 2010 para carregar este campo:

var
xml: TStream;
begin
Busca.Open;

xml := Busca.CreateBlobStream(Busca.FieldByName(xmloriginal), bmRead);

Uso ADO para acesso e usei uma Ado Query fazer a busca mas quando executo este apresentando o seguinte erro:

---------------------------
Monitor_danfe
---------------------------
Invalid class typecast.
---------------------------
OK
---------------------------

A query esta retornando linha normal, mas não consegui resolver se alguem puder me ajudar eu agradeço pois quero pegar esta Stream do Banco e transforma-la em arquivo novamente. Ela esta sendo gravada por outro sistema.

Desde já obrigado pela ajuda.