INSERT INTO in Tabelle mit Beziehungen über SQL?

[unitedlb]

Delphi-Quellcode:

 sqlfield := 'Act-Journal-ID,SN,Company,Name,Adresse,PLZ,Telefon,Bemerkung';

                sqldata := cases[r].journalid+','+
                           quotedstr(cases[r].sn)+','+
                           quotedstr(cases[r].company)+','+
                           quotedstr(cases[r].name)+','+
                           quotedstr(cases[r].adresse)+','+
                           quotedstr(cases[r].plz)+','+
                           quotedstr(cases[r].ort)+','+
                           quotedstr(cases[r].telefon)+','+
                           quotedstr(cases[r].bemerkung);

                with form1.ADOQuery1.SQL do begin
                        Clear;
                        add('INSERT INTO Aufträge ('+sqlfield+') VALUES('+sqldata+')');
                        end;
                form1.ADOQuery1.ExecSQL;