Du kannst es evtl. so versuchen:
Delphi-Quellcode:
i := 0;
repeat
i := i + 1; // Nächste ID
qry.Active := False;
qry.SQL.Text := 'SELECT id FROM tbl_mit_ids WHERE id = ' + IntToStr(i); // ID abfragen
qry.Active := True;
s := qry.FieldByName('id').AsString;
until s = ''; // Abbruch wenn ID noch nicht vorhanden
Im Ereignis OnNewRecord der Tabelle kannst Du dann den Wert aus 'i' als neue ID verwenden.
Natürlich muss zuvor das Attribut 'AutoInc' aus der entspr. Tabelle entfernt werden, denn sonst kannst Du das nicht manuell setzen.
Gruß
OG Karotte