function  zmodem_send(
     pathname: string; lastfile: boolean; comport: word; baudrate: longint
   ): boolean;