Pascal/Turbo Pascal - llamar funciones de c++ en turbo pascal

quisiera poder llamar funciones de c++ en turbo pascal, para lo cual he ideado un ejemplo sencillo pero no me funciona quizas hay que hacerle algunas correciones y agregarle algunas cosas.
a continuacion el codigo c++que hay que convertir en *.obj para llamarlo desde pascal.

int pascal cubo(int n)
{
return(n*n*n);
}

a continuacion el codigo pascal para llamar a la funcion c++..

program ejemplo;
uses crt;
{$f-}
function funcub(n:integer):integer;external;
{$L funcub}

var i: integer;
begin
clrscr;
for i:=1 to 10 do
writeln(cubo(i));
repeat until keypressed;
end.
*****************
por favor alguien podria ayudarme, gracias de antemano por su ayuda.