Datensätze gesperrt?

[Taladan]

Delphi-Quellcode:

procedure TFormGehaltsliste.ListBox1Click(Sender: TObject);
var filter : string;
    i : integer;
    wasdrin : boolean;
begin
   DataMod.query2.sql.clear;
   wasdrin := false;
   DataMod.query2.sql.Add('select verteiler, betrag, datumderverteilung from verteilungen where verteiler =  :zähler');
   For i:= 0 To Listbox1.items.count -1 Do
   begin
    if listbox1.selected[i] then
    begin
     if wasdrin = false then begin
       filter := 'and (datumderverteilung = "' + listbox1.items.strings[i] + '"';
       wasdrin := true;
     end
     else
     begin
      filter := filter  + 'or datumderverteilung = "' + listbox1.items.strings[i]+'"';
     end;
    end;
   end;
   filter := filter + ')';
   DataMod.query2.sql.add(filter);
   DataMod.query2.ExecSQL;
   DataMod.query2.active = true;
   berechnen;
end;

Wobei ich mir nicht denken kann, das es an diesen code liegen kann, es muß etwas mit dem Tabels oder Datenbank sein, den der obrige code lief schon (hab nur hauptform.? mit datamod.? ausgetauscht, da ich ja die abfragen verschoben hab)