[jonydread]

hola amigos junto con saludarles les pido una ayuda
tengo esta funcion que encontre buscando y no encuentro como aplicarla

Código Delphi [-]
function GetSpecialFolder(FolderID : longint) : string;
 var
 Path : pchar;
 idList : PItemIDList;
 begin
 GetMem(Path, MAX_PATH);
 SHGetSpecialFolderLocation(0, FolderID, idList);
 SHGetPathFromIDList(idList, Path);
 Result := string(Path);
 FreeMem(Path);
 end;
function GetMyDocDir: string;
 begin
 Result := GetSpecialFolder(CSIDL_PERSONAL);
 end;

quisiera poner mis documentos como carpeta inicial la coloco asi pero la verdad ni idea de como hacerla

Código Delphi [-]
    SelectDirectory(
    'Seleccione Carpeta', // Texto de la ventana
    'GetMyDocDir',  // Carpeta inicial
    Carpeta  // Carpeta seleccionada
  );

espero su ayuda
gracias!