In welcher Zeile tritt der Fehler konkret auf? Hast du das mal mit dem Debugger nachvollzogen?
Edit: Versuch es mal so...
Delphi-Quellcode:
uses FileCtrl;
procedure xy;
var dir : string;
begin
if SelectDirectory('Select a directory', '', Dir) then
ShowMessage(Dir);
end;