Problem mit "ChooseFolder"

[Akut-Programming]

Hi, also ich will in meiner Anwendung nur nen Ordner auswählen und nicht den kompletten Pfad einer Datei. Dazu hatte Mathias nen Link ausn Forum gegeben, in dem ich eine solche Funktion gefunden habe. Nur bekomme ich hier Fehlermeldungen, das er bestimmte Bezeichner nicht kennt. Kann jemand ma über den Code schauen und mir sagen welche Units ich dafür noch brauche??

Delphi-Quellcode:

function ChooseFolder(const Title: string): string;
var
  Path: array [0..MAX_PATH] of char;
  pidl: PItemIDList;   // Den kennt er nicht
  bi: TBrowseInfo;     // Den auch nicht..
begin
  result := '';
  OleInitialize(nil);
  with bi do
  begin
    hwndOwner := ; // Und den nicht (N Handle muss ich dann noch eintragen)
    pidlRoot  := nil;
    pszDisplayName := Path;
    lpszTitle := PChar(Title);
    ulFlags := BIF_RETURNONLYFSDIRS or BIF_NEWDIALOGSTYLE;
    lpfn := nil;
    lParam := 0;
  end;
  pidl := ShBrowseForFolder(bi);
  if (pidl <> nil) and (SHGetPathFromIDList(pidl, path)) then
    result := path;
  OleUninitialize;
end;