Verständnisproblem - Warum funktioniert mein DELETE nicht?

[DeddyH]

Ich denke mir, das with in Verbindung mit "Name" ist Schuld. Geht es so?

Delphi-Quellcode:

procedure TDGHBDatabase.DeleteUserByName(const sName: String);
  var
    DeleteUserQuery : TZQuery;
  begin
    DeleteUserQuery := TZQuery.Create(nil);
    try
      with DeleteUserQuery do
        begin
          Connection := fConnection;
          ParamCheck := true;
          SQL.Text := 'DELETE FROM USERS WHERE USER_NAME = :user ';
          ParamByName('user').AsString := sName;
          ExecSQL;
        end;
    finally
      DeleteUserQuery.Free;
    end;
  end;