Unit m_Protocol_YModem; {$I M_OPS.PAS} Interface Uses m_Protocol_Xmodem; Type TProtocolYmodem = Class(TProtocolXmodem) End; Implementation End.