procedure TForm1.FormClick(Sender: TObject);
begin
  frxReport1.ShowReport();
end;


type
  TFunctions = class(TfsRTTIModule)
    function CallMethod(Instance: TObject; ClassType: TClass;  const MethodName: String; Caller: TfsMethodHelper): Variant;
    constructor Create(AScript: TfsScript); override;
  end;

constructor TFunctions.Create(AScript: TfsScript);
begin
  inherited;
  with AScript do begin
    with FindClass('TStringList') do begin
      AddMethod('procedure CustomSort(Compare: string);',CallMethod);
    end;
  end;
end;

var C: TfsMethodHelper;
    SL: TStringList;

function DoCompare(List: TStringList; Index1, Index2: Integer): Integer;
var V: TfsCustomVariable;
begin
  V := C.Prog.Find(C[0]);
  if not (V is TfsProcVariable) then begin
    Result := 0;
    Exit;
  end;
  V.Params[0].Value := integer(SL);
  V.Params[1].Value := Index1;
  V.Params[2].Value := Index2;
  Result := TfsProcVariable(V).Value;
end;

function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; Caller: TfsMethodHelper): Variant;
begin
  if Instance is TStringList then begin
    if MethodName = 'CUSTOMSORT' then begin
      C := Caller;
      SL := TStringList(Instance);
      SL.CustomSort(DoCompare);
    end else
  end;
end;


initialization
  fsRTTIModules.Add(TFunctions);

finalization
  fsRTTIModules.Remove(TFunctions);

end.

var SL: TStringList;

function MySort(S: TStringList; Index1,Index2: integer): integer;
begin
  if S[Index1] < S[Index2] then Result := -1 else
  if S[Index1] > S[Index2] then Result := 1 else Result := 0;                                        
end;            



  
begin
  SL := TStringList.Create;
  
  SL.Add('ccc');
  SL.Add('bbb');
  SL.Add('aaa');
    
  SL.CustomSort(@MySort);
  ShowMessage(SL.Text);                                              
end.