Pascal Script: Delphi Functionen nutzen

[DieHardMan]

Hi, möchte gern die beiden Stringfunktionen StringReplace und PosEx in Pascal Script hinzufügen, aber irgendwie klappt das nicht. Habe folgendes versucht:

Delphi-Quellcode:

function ExStringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
begin
  StringReplace(S, OldPattern, NewPattern, Flags);
end;

procedure TfrmMain.ceCompile(Sender: TPSScript);
begin
  Sender.AddFunction(@ExStringReplace,
                   'function ExStringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;');
end;

Klappt aber nicht, da kommt folgende Exception:
raised exception, unable to register function function ExStringReplace...