Rave: Event-Editor --> Error #36 - CalcStack has 2 Items ?!

[Glühwürmchen]

Delphi-Quellcode:

function DataText22_OnGetText(Self: TRaveDataText; var Value: string);
var 
  sTempText : String;
  iTextLaenge : Integer;
  i : Integer;
begin
  iTextLaenge := length(Value);
  i := 1; 
  sTempText := '';

  while (i <= iTextLaenge) and (Value[i] <> '$') do begin  <-- Error  :wall: 
    sTempText := sTempText + Value[i];
    i := i + 1;
  end while;

  if sTempText = '' then
    Value := '';
  else begin
    i := 1;
    sTempText := '';

    while i <= iTextLaenge do begin
      if Value[i] = '$' then
        Value[i] := '';
      end if;
    end while;
  end if;
end OnGetText;

Was will der nur von mir?