Delphi Как выполнить дополнительный код при приведении типов присвоение переменных

Delphi Как выполнить дополнительный код при приведении типов присвоение переменных?

class operator

не помогает или какой нужно использовать?

procedure TForm1.Button2Click(Sender: TObject);
type
   TRec2= record
     b:byte;
     s2:string;
     i2:integer;
   end;
   var R1,R2: TRec2;
begin
    R1:= R2; //<< как при присвоении выполнить доп код
end;