//send data
procedure tFrmReader.sendData();
var
    orderStr : string;
begin
    if orderLst.Count>curOrderNo then
    begin
        orderStr:=orderLst.Strings[curOrderNo];

        orderStr:=exchData(orderStr);
        comReader.WriteCommData(pchar(orderStr),length(orderStr));
        inc(curOrderNo);
    end;
end;