So nach einiger Recherche habe ich eine neue Prozedur gefunden, die tatsächlich funktioniert
http://www.delphifaq.com/faq/delphi/database/f7.shtml
Der Fehler war, dass ich "ComObj;" nicht bei Uses deklariert habe.
(es passiert mir oft, dass ich mein Problem selbst löse, sobald ich es ins Forum geschrieben habe
)