Как сделать, чтобы удалялось 1-ое число, а не заключительное?

// К примеру так:

begin

 var a := 123456789;

 a := a.ToString[2:].ToInteger;

 Print(a) // 23456789

end.

// Либо так:

function foo(a: integer): integer;

begin

 if a div 10 = 0 then exit

 else

   Result := a mod 10 + 10 * foo(a div 10);

end;

begin

 var a := 123456789;

 Print(foo(a)) // 23456789

end.