Hola Luis.
Sin embargo, tu función puede ser útil en casos especiales en que sería imposible usar la otra, por ejemplo:
Código Delphi
[-]
var
numStr: string;
ultDig: Integer;
begin
numStr:= '99147529999343245987123598199952245933587';
ultDig:= StrToInt(Copy(numStr, Length(numStr), 1));
...
Saludos