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.