[chainik]

для форматирования результата используй функцию
(см справку)
function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; overload;