TOpenDialog: nur TXTs öffnen können

[bogomip]

Hallo,

ich möchte erreichen, dass ich mit einem TOpenDialog nur *.txt Dateien öffnen kann.
Die Filter-Eigenschaft habe ich schon probiert, bringt aber nichts, da man ja trotzdem mit "*" alles öffnen kann.

Deshalb möchte ich nach opnDatei.execute mit If einen Stringvergleich durchführen, wo ich opnDatei.FileName mit '*.txt' Vergleiche und opnDatei.FileName verwerfe und eine MSG Box ausgebe, wenn es keine txt ist. Dies funktioniert aber irgendwie nicht, ich bekomme immer "Typen inkompatibel".

Wie müsste dieser Stringvergleich aussehen?


Ach ja: Wie kann ich eigentlich mein Arbeitsverzeichnis einstellen?
Ich bekomme immer das Bin-Verzeichnis von Delphi angezeigt beim Speichern und öffnen, das nervt auf die Dauer etwas...


Vielen Dank für eure Hilfe,

bogomip