@ ConnorMcLeod: Hab es jetzt alles in die if-Abfrage gepackt. Hat zwar beim Abbrechen des OpenDialogs (noch) keine Fehler gemacht, aber sicher ist sicher.
Das SetSQLAndExecute ist eigentlich nicht sonderlich spektakulär
Code:
procedure SetSQLAndExecute(Que : TAdsQuery; SQL_Befehl : String);
begin
with Que do
begin
Close;
SQL.Clear;
SQL.Add(SQL_Befehl);
ExecSQL;
end;
end;