[ryderx34]

ещё вариант:

Код:

function GetFracPart(A: Extended): String;
begin
  Result := FloatToStr(A);
  Delete(Result, 1, Pos(',', Result));
end;