TopExp_Explorer

hello everybody:
I have an application dévellopé in MS2005, as using the librairie of open cascades.
to \" explore the entities topological, cotopoligical,et Geometric of a model BREP \" ,
I want to compile this application with BorlandC++ builder6.0, to make this i use the DLL method

for example:
IN MS2005(dll);
//get all face from shell:
TopoDS_Face face;
TopTools_IndexedMapOfShape faces;
int list_face()
{
TopExp::MapShapes(coquille, TopAbs_FACE, faces);
for(int i=1; i<=faces.Extent(); ++i)
{
face=TopoDS::Face(faces.FindKey(i));
Standard_Integer num_faces=faces.FindIndex(face);

}
return true;
}
in Borland C++Builder 6.0
//get all face from a shell
list_face=(int(*)())GetProcAddress(h,\"list_face\");
(*list_face)();(this fonction return all face from shell)
it\'s work without any problem
but when i try to explore the wire from face
i don't know how I can make to point on all the
faces because to explore a wire from face in open cascade i' use this code:
//get all wire from face
TopoDS_Wire contour;
TopTools_IndexedMapOfShape contours;
int list_contour(int num_face(face index) )
{
TopExp::MapShapes(face,TopAbs_WIRE, contours);
for(int num_face=1; num_face<=contours.Extent(); ++num_face)
{
contour=TopoDS::Wire(contours.FindKey(num_face));
Standard_Integer num_contours=contours.FindIndex(contour);

}

return true;
}

but when i try this code he point in the one face

in BOrland juste i try this:
int nomb_face; nomb_face=list_face();
for(int num_face=1; num_face<=nomb_face; num_face++)
{
(*list_contour)(num_face);//he point in the one face
}
please help me i needed for my project