Fastreport, Variable Fontgrösse abhängig von Anzahl der Buchstaben

[TurboMagic]

Warum nicht gleich so?

Delphi-Quellcode:

procedure Doppel7OnBeforePrint(Sender: TfrxComponent);
begin
  if Length(<Doppel7>) > 10 then
    Doppel7.Font.Size := 8
  else
    Doppel7.Font.Size := 10;
end;