[Johny777]

и лишнего наверное много? »

есть такое
гляну ещё раз спокойно
проверяй форум время от времени (особенно завтра)
========================================
скажите пожалуйста в чём разница между этой функцией

Код:

function NumToStr(Float: Extended): String;
begin
  Result:= Format('%.1n', [Float]);
  StringChange(Result, ',', '.');
  while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
  SetLength(Result, Length(Result)-1);
end;

и встроенным FloatToStr