unit tw29792; {$mode delphi} interface type { TMyRecord } TMyRecord = record class operator Add(A,B: TMyRecord): TMyRecord; end; implementation { TMyRecord } class operator TMyRecord.Add(A, B: TMyRecord): TMyRecord; begin // add implementation end; procedure TestIfCompiles; type TInteger = TMyRecord; var N1, N2, N3: TInteger; begin N1 := N2 + N3; end; end.