selectdirectory zugriffsverletzung

[Danyel]

Hi,
da die Forensuche mich nicht weiter gebracht hat, stelle ich euch hier die Frage.

Ich möchte in meinem Programm vom User ein Pfad auswählen lassen und habe keine Lust neue Komponenten etc einzubinden. Bin dann auf SelectDirectory gestoßen.

Delphi-Quellcode:

uses FileCtrl;
procedure xy;
var dir : string;
begin
   SelectDirectory('Select a directory', '', Dir);
   ShowMessage(Dir);
end;

Soweit alles ganz schön und gut, doch funktioniert dies nicht, obwohl es eigentlich funktionieren müsste nachdem was ich hier schon so gefunden habe, doch bekomme ich eine Zugriffsverletzung und nichts passiert, dh der Dialog öffnet sich nicht.
Hier ein Bild der Fehlermeldung:
http://img186.imageshack.us/img186/3508/fehlerrt.jpg