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;