Fórum Não Funciona MoveNext #212520

Ola estou tentando utilizar o método MoveNext do componente AdoDataSet e estou tentando fazer esse tipo de consulta.

obejeto.commandtext := ´Select EXA_ESPECI FROM PACIENTE_LABORATORIO LEFT JOIN EXAME ON PACIENTE_LABORATORIO.PL_CODEXAME = EXAME.EXA_CODIGO ´ +
´WHERE PACIENTE_LABORATORIO.PL_NUMEXAME = ´´ + txtcodigo.text + ´´´

objeto.open;

//utilizando o metodo recordcount ele irá ter 6 registros

objeto.recordset.movefirst
while objeto.recordset.eof do
begin
lista.items.add ( objeto[´EXA_ESPECI´];
objeto.recordset.movenext;
end;

até ai tudo bem, o problema é que ele preenche a lista com o primeiro registro as 6 vezes, ele não pega um de cada um.
Onde que está o problema.

Objeto de conexao: ADOConnection
ADODataSet