Class Operator Add

ClassOperatorsAdd.pas

type
  TVenda = record
    Valor: Currency;
    class operator Add(AVenda1, AVenda2: TVenda): Currency;
  end;

var
  LVenda1, LVenda2: TVenda;
begin
  LVenda1.Valor := 100;
  LVenda2.Valor := 50;
  ShowMessage(CurrToStr(LVenda1 + LVenda2));
end;

{ TVenda }

class operator TVenda.Add(AVenda1, AVenda2: TVenda): Currency;
begin
  Result := AVenda1.Valor + AVenda2.Valor;
end;