Problem z OpenDialog [wybór folderu]

witam.
Mam taki kod:

procedure TProj.Button2Click(Sender: TObject);
begin
otworz.FileName:= '*.';
otworz.Title:= 'Wybierz folder';
otworz.Options:= [ofNoValidate];
  if otworz.Execute then begin
    lokalizacja.Text:=extractfilepath(otworz.filename);
  end;
setCurrentDir(ExtractFilePath(Application.ExeName));
end;

Chcę, aby użytkownik wybierał folder, w którym ma zostać zapisany plik.
Ta metoda działa na windows XP, ale nie na viście/7.
Proszę o pomoc.
pozdrawiam.

google -> delphi select directory vista
najpierw poszukaj na www.torry.net w "tips"

A takie coś jak opisane pod linkiem poniżej może być? Z tego co wiem - to działa dobrze
także pod Vistą: Dialog do wyboru katalogu

Albo spróbuj:
uses filectrl;

SelectDirectory('Wybierz katalog','',Dir);

gdzie zmienna dir to katalog jaki wybierze użytkownik.

A mi działa na 7 x64.