Fórum Select Com Ado x BDE #322141

Caro Colegas,

Recentemente postei uma mensagem, mas não obtive respostas. Então resolvi escrever uma mensagem mais detalhada.

Seguinte:

eu utilizava a camada BDE para conexões com o Banco de Dados.

Em meu sistema eu padronizei um esquema que funciona da seguinte forma.

Pego o Componente TQuery ( Name = qryCarrega ) e coloco o seguinte Cláusula SQL

Select X = Cast(´´ as Char(1)) , E.CdPrd , E.Qtd , E.NrContrPendEntr , P.DescCdPrd , p.Unid From PendEntreg E
Inner Join Tb_Produtos P
On P.CdPrd = E.CdPrd
Where E.NrContrMont = :Nr
And E.Status = ´P´

Onde o Campo ´X´ não existe, crio ele virtualmente, daqui a pouco digo o porque.

No on DlbClick do DbGrid coloco :

qryCarrega.Edit;

if qryCarregaX.AsString = ´´ Then
qryCarregaX.AsString := ´X´
Else
qryCarregaX.Clear;

No pressionar do botao coloco:

while not qryCarrega.Eof do
Begin
if qryCarregaX.AsString = ´X´ Then
Begin
{ Faz Qualquer Coisa }
End;
qryCarrega.Next;
End

qryCarrega.Close;
qryCarrega.Open;


Pronto!!!

ele só pega os que eu selecionei de uma forma mais bonita que a propriedade do DbGrid de MultiSelect;

Ok, estava tudo beleza!

Quando resolvi mudar algumas coisas para ADO!!!

e já fiz tudo só que com ADO isto não funciona.

Alguém tem alguma idéia de como eu possa fazer isso?! Ou algum jeito que funcione?!

Abraços e Aguardo Respostas....