intercalar digitos

[luisito2011]

bueno.. 1ro.. tengo delphi 2010
2do.. cuando probe otra vez mi function.. funciono--
3ro.. se me olvido poner mi caja .. unit lo siento
4to.. mi function tiene un error solo funciona si ..
A:= es mayor o menor .. de numerodigitos que B..
y si B.. es mayor que A..o si es menor que A no sirve..
error //fuera de rango//
...que puedo modificar para que sirva no inporta si A o B
es mayor o menor de numerodigitos..
5to.. bueno no hay un 5to.. saludos.. y gracias..