Autsch, hab in der falschen Spalte geschaut.
Sorry.
Werd ich auch gleich nochmal ausprobieren.
was ich jetzt noch versucht habe ist
ShellExecute(Handle, 'open', PAnisChar(Datei), Pchar(''), PAnsiChar(Datei), SW_SHOWNORMAL)
das funktioniert soweit, aber ich möchte ja die Datei mit einem bestimmten Programm öffnen und nicht nur mit dem Windows-Standard-Programm für den Dateitypen.