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

非常好的Delphi电子书，适合入门选手。-Good Ebook about Delphi, for new users.