...get more... for Delphi.NET, C#, VB.NET for Delphi VCL, BCB 3-6
greatis.blogspot.com
Use GetLastDigit function.
function GetLastDigit(Num: Integer): string; begin Result:=FloatToStr(Num mod 10); end;