constructor TFunctions.Create(AScript: TfsScript);
begin
  inherited Create(AScript);

  with FindClass('TfrxCustomCrossView') do begin
    AddMethod('function GetValue(ARow, AColumn, ACell: Integer): Variant;', CallMethod);
  end;
end;

function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const AName: String; Caller: TfsMethodHelper): Variant;
begin
  if ClassType = TfrxCustomCrossView then begin
    if AName = 'GETVALUE' then Result := TfrxCustomCrossView(Instance).GetValue(Caller[0],Caller[1],Caller[2]) else
  end else
end;

procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
  if DBCross1.GetValue(RowIndex, 1, CellIndex) < DBCross1.GetValue(RowIndex, 2, CellIndex)
    then Memo.Color:=clyellow;
end;