Die Fehlermeldung sagt ja schon alles. Du öffnest eine
Query mit Open obwohl du noch eine Nicht-Resultset-
SQL-Anweisung drin hast.
Und was soll das?
Delphi-Quellcode:
MyQueryDLS.open;
if not MyQueryDLS.Active then MyQueryDLS.Open;
Ich würde empfehlen deinen Quellcode mal stark zu überarbeiten und formatierungstechnisch in halbwegs lesbare Form zu bringen.