delphi 写的串口打印机程序红色部分有点不懂请-菜鸟

delphi 写的串口打印机程序红色部分有点不懂请高手指点--初学者
 procedure PrintPnl_ID_CELL(aPnl_ID,aExtract,aAddCition,aWork_ctr,aMach_id:string;
                        aX,aY:Integer);stdcall;

 var So:array [0..12] of string;
      s:string;
      i:integer;
      x,y:Integer;
      x1,x2,y1,y2:string;
      wm:string;
      frm:TFrmPrintSet;
      txtPnl_id :string ; //列印panel文本
  begin
     txtPnl_id := Trim(aPnl_id);

     try
         //正常打印时ax,ay传入0
         if aX=0 then
         begin
             wm:=awork_ctr+amach_id; //站别线别
             //ShowMessage(wm);
             if CheckIniSection(wm,'')=false then
             //读取该站别线别的打印机参数
             //如果读不到参数则打开设置窗口
             begin
                frm:=TFrmPrintSet.Create(nil);
                frm.work_ctr:=aWork_ctr;
                frm.mach_id :=aMach_id;
                frm.ShowModal;
                //Exit;
             end;
             x:=StrToInt(ReadFromIni(wm,'POSX','500',''));
             y:=StrToInt(ReadFromIni(wm,'POSY','10',''));
         end
         else  //测试打印时传入测试时的X/Y轴坐标值
         begin
            x:=aX;
            y:=aY;
         end;

         //如果端口未打开则打开指定端口
         if GBopen=false then OpenPort(aWork_ctr,aMach_id);
         x1:=IntToStr(x);
         //x2:=IntToStr(x+71) ;
         //x2:=IntToStr(x+105) ;    //Gsmall       2008/5/10
         x2:=IntToStr(x+25) ;     //SM SM
         //
         //y1:=IntToStr(y);
         Y1:=INTTOSTR(Y);     //SM SM
         //y2:=IntToStr(y+63);
         //y2:=IntToStr(y+35); //small
         Y2:=INTTOSTR(Y+45); //SM SM

         so[0]:=chr(2);
         so[1]:=chr(27)+'A';
         so[2]:=chr(27)+'H'+x1;
         so[3]:=chr(27)+'V'+y1;
         //so[4]:=chr(27)+'P02L0303';
         //so[5]:=chr(27)+'D102058'+'*'+aPnl_ID+'*';
         //so[5]:=chr(27)+'D102032'+'*'+aPnl_ID+'*';      2008/5/10
         so[5]:=chr(27)+'BG01040'+txtPnl_id;       //SM SM
         so[6]:=chr(27)+'H'+x2;
         so[7]:=chr(27)+'V'+y2;
         so[8]:=chr(27)+'P01'+chr(27)+'L0101';
         so[9]:=chr(27)+'S'+aExtract+txtPnl_id+aExtract+aAddCition;
         so[10]:=chr(27)+'Q01';
         So[11]:=Chr(27)+'Z';
         so[12]:=chr(3);

        for i := 0 to 12 do
        begin
           s:=s+so[i];

        end;
        sio_flush(GCommData.Port,2);
        sio_write(GCommData.Port,PChar(s),length(s));
        ClosePort
     except
        ClosePort;
     end;
end;
[解决办法]
这个得看你发往 打印机的指令表，去查询此指令的含义了。