Hi,
mir fallen ein paar Dinge auf.
1. Du leitest von TraStringFunction ab. TraSystemFunction ist
IMHO besser geeignet.
2. RoundTo hast du einmal für RAP und dann noch mal in Delphi als normale Funktion integriert. Das könnte Probleme bereiten.
[EDIT]
3. Ganz nützlich ist auch noch die Kategorie - zur Übersichtlichkeit
Code:
class function TmyRoundToFunction.Category: string;
begin
Result := 'Crystal Reports';
end;
Frank