Fórum problemas com while - loop infinito #363697

Olá Pessoal! seguinte, tenho um banco com 5 clientes, e estou usando uma query que pega esses clientes do banco. o problema é que mesmo quando termina de pegar os clientes, não está saindo do while... ele fica infinitamente dentro do while!! segue o código, se alguem puder me ajudar agradeço muito!!

procedure TDmDados.ExportaCLientes(var Error : Integer);
begin
//abrir a query
QryClientes.Open;

try
ClientesDB.Open;
except
Error := 1;
TabdConduit1.AddLogEntry(´erro ao abrir banco de dados de clientes´);
Exit;
end;
ClientesDB.First;
QryClientes.First;

While not QryClientes.EOF do
begin
ClientesDB.Append;
ClientesDB.FieldByName(´Cli_Codigo´).AsInteger := QryClientesT004_NR_CODIGO.AsInteger;
ClientesDB.FieldByName(´Cli_Nome´).AsString := QryClientesT004_CA_NOME.AsString;
if QryClientesT004_CA_PESSOA.AsString = ´F´ then
ClientesDB.FieldByName(´Cli_PfPj´).AsString := ´PF´;
ClientesDB.FieldByName(´Cli_Endereco´).AsString := ´Endereço´;
ClientesDB.FieldByName(´Cli_Fone´).AsString := ´Telefone´;
ClientesDB.FieldByName(´Cli_Cidade´).AsString := ´Cidade´;
ClientesDB.Post;
ClientesDB.Next;
QryClientes.Next;
end;
ClientesDB.Close;
QryClientes.Close;
end;