Du liest nun im
SQL alle Datensätze der Tabelle Kontakte und bekommst am Anfang den ersten Datensatz und der hat die ID 1.
Das hat aber nichts mit dem zu tuen, was Du erreichen möchtest. Du möchtest doch die ID des zuletzt eingefügten Datensatzes. Also musst Du auch die letzte ID lesen und das geht mit:
Delphi-Quellcode:
qMain.SQL.Text := 'SELECT LAST_INSERT_ROWID()';
qMain.Open;
if qMain.RecordCount > 0 then begin