Recorrer y comparar datos en un tzquery

[ecfisa]

Hola jose001.

Creo que no has entendido lo que te sugirió olbeup...

Comprendo que deseas avisar si el usuario existe o, modo contrario agregarlo. Si interpreté bién, sería algo parecido a esto:

Código Delphi [-]
...
 // Buscar el usuario:
  tuQuery.Close;
  tuQuery.SQL.Clear;
  tuQuery.SQL.Add('SELECT * FROM CUENTAS');
  tuQuery.SQL.Add('WHERE USUARIO = :USER');
  tuQuery.ParamByName('USER').AsString := eUsuario.Text;
  tuQuery.Open;

  if not tuQuery.IsEmpty then  
    ShowMessageFmt('El usuario %s ya existe',[eusuario.Text])  // el usuario existe, mostrar mensaje
  else                                                         // el usuario no existe, agregarlo
  begin
    tuQuery.Close;
    tuQuery.SQL.Clear;
    tuQuery.SQL.Add('INSERT INTO CUENTAS(USUARIO, CONTRASENIA)');
    tuQuery.SQL.Add('VALUES(:USER, :CONT)');
    tuQuery.ParamByName('USER').AsString := eUsuario.Text;
    tuQuery.ParamByname('CONT').AsString := eContrasenia.Text;
    tuQuery.ExecSQL;
  end;
...

Saludos