Listbox ->Zum Eintrag gehörende ID auswählen

[Gruber_Hans_12345]

was sind Q_gr und Q_vertrag für Komponenten ?

statt Q_gr.ExecSQL; mußt Q_gr.Open; verwenden (Open ist für SELECT ExecSQL für INSERT, DELETE, UPDATE ...) (wie Spider schon erwähnt hat)

eventuell nach Q_qr.Open;
abprüfen, ob die Query Datensätze enthählt

Delphi-Quellcode:

Q_gr.Open;
if not Q_gr.Eof then begin ....

end;