Hallo,
opendialog1.InitialDir := extractfilepath(paramstr(0)) + 'Data\Sektoren';
Du hast also Daten im Programme-Verzeichnis stehen ...
Mache ein try/except um alles und bringe die
Exception.Message zumindestens auf den Monitor.
Und zu Windows 7 habe ich nicht
Windows 7 90 Tage Testversion
Heiko