Recorrer y comparar datos en un tzquery

[jose001]

Hola buenas noches basicamente tengo un formulario en el cual tengo 2 Tedit para hacer un alta de un usuario utilizo un query de componentes zeos
y delphi 2010
en mi base de datos ya tengo creada la tabla
"cuentas" con el siguiente formato

Código SQL [-]
usuario
contrasenia

en mi componente query tengo la siguiente consulta

Código SQL [-]
select 
*
FROM
  `cuentas`
 where usuario = :usuario AND contrasenia = :contrasenia

Bien lo unico que quiero hacer ahora es recorrer dicho query y comparar si el edit llamado eUsuario es igual algun registro de la columna usuario si es igual mostrar un mensaje de que ya existe dicho usuario

e probado el siguiente codigo para esto pero no logro solucionar este planteamiento no se la verdad si no estoy recorriendo bien el query o la consulta esta mal echa alguna ayuda ?

Código Delphi [-]
while qCuentas.Eof do 
 if qCuentas.FieldByName('usuario').AsString=eUsuario.Text then
  begin
showmessage('existe');
else
qCuentas.post;
end;
qCuentas.Next;
end;