la chiamata alla funzione è corretta, quello che è sbagliato è l'algoritmo.
Mi è caduto l'occhio sulla parte

...
// Se il segno è negativo lo metto subito positivo
if Numero > 0 then
begin
Numero := numero * -1;
Negativo := true
end else Negativo := false;
...
dove devi scrivere
if Numero < 0 then

facendo questa correzione funzione fino al 10, per il resto riguardatelo con calma
ciao
sergio