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