Syntax-Fehler mit Select und Case

[daredd]

Hab mal wieder ein Syntax-Fehler, und verstehe nicht warum?

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt DatenZugriff.exe ist eine Exception der Klasse EOleException mit der Meldung 'Syntaxfehler in Abfrageausdruck '(SELECT ARTIKELSTATUS, CASE ARTIKELSTATUS WHEN Sonderbestellung THEN 8 WHEN Normal THEN 7 WHEN Auslaufartikel THEN 32 END FROM KOMSA)'' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

und der Code:

Delphi-Quellcode:

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Warenbestand As W INNER JOIN KOMSA As K On W.external_id = K.KOMSANUMMER SET W.products_shippingtime = (SELECT ARTIKELSTATUS, CASE ARTIKELSTATUS WHEN Sonderbestellung THEN 8 WHEN Normal THEN 7 WHEN Auslaufartikel THEN 32 END FROM KOMSA)');
ADOQuery1.ExecSQL;