procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end

详细说明：几本开发DSP DM642的书籍，很有用 1. TMS320DM642 Hardware Designer’s Resource Guide 2. TMS320DM642 E开发板 3. TMS320DM642 EVM OSD FPGA 4.TMS320DM642 Video Port Mini-Driver 5. TMS320DM642中文手册

already to use delphi 5

德飞莱M3S的STM32F103ZET6开发板 2.8寸 TTF液晶屏 OV7725摄像头屏显 keil 5.25(Delphi M3S's STM32F103ZET6 development board 2.8 inch TTF LCD screen OV7725 camera screen display keil 5.25)