Extraer Decimales De Un Numero

[Cheerpipe]

y si los decimales son variables puedes usar

Código Delphi [-]
function extraerDecimalString(SeparadorDecimal: String; Texto: String): String;
var
  l: integer;
begin
  result:=RightStr(Texto,lenght(l)-pos(SeparadorDecimal,Texto));
end;