program tw18567; {$mode delphi} type TSomeRecord = record data: TData; class operator Explicit(a: TData) : TSomeRecord; end; class operator TSomeRecord .Explicit (a: TData): TSomeRecord; begin end; begin end.