MyQuery.ParamByName('ArtNr').Value := QuotedStr(AccessQuery.FieldByName('ArtNr').Value);
Nur eine Kleinigkeit, aber mach das bitte so:
MyQuery.ParamByName('ArtNr').AsString := AccessQuery.FieldByName('ArtNr').AsString;
Die Parameter kümmern sich dann um Quotation etc.