SQL Unterabfrage= kein ergebniss

[Teekeks]

Der Code dahinter:

Delphi-Quellcode:

{...}
  with HauptForm.SQLQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Buecher WHERE Nummer IN');
    SQL.Add('(');
    SQL.Add(' SELECT BuchNR FROM Ausleihvorgang WHERE NutzerNR = '+inttostr(User.Nr)+' AND Aktiv = 1');
    SQL.Add(')');
    Open;
{...}