[jonydread]

justo cuando me rendi y consulte, encontre la solucion solo debia sacar las comillas de GetMyDocDir
lo dejo como aporte xD
la funcion

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;

se aplica

Código Delphi [-]
procedure TForm1.btAddClick(Sender: TObject);
var
  Carpeta: String;
begin
    SelectDirectory(
    'Seleccione Carpeta', // Texto de la ventana
    GetMyDocDir,  // Carpeta inicial
    Carpeta  // Carpeta seleccionada
  );
end;