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
[-]
...
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]) else 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