function Double2Str( D: Double ): String;
begin
  Result := Extended2Str( D );
end;