请教：小票打印问题，谢谢，分数不够再加！

打印小票代码如下：
  s:=#12;
  s1:='  ';
  s1[1]:=#27;
  s1[2]:=#14;
  s2:='   ';
  s2[1]:=#27;
  s2[2]:=#20;
  s3:='   ';
  s3[1]:=#27;
  s3[2]:=#33;
  S3[3]:=#16;
  S4:='   ';
  S4[1]:=#27;
  s4[2]:=#33;
  s4[3]:=#00;
  s5:='     ';
  s5[1]:=#27;
  s5[2]:=#112;
  s5[3]:=#0;
  s5[4]:=#100;
  s5[5]:=#180;
  s6:='     ';
  s6[1]:=#27;
  s6[2]:=#64;
  AssignFile(F,trim(strPort1));//strPort1为变量，com1或并口可以自动选择
  Rewrite(F);                              
  Writeln(F,s6);
  Writeln(F,'');  
  
  Writeln(F,' '+S3+s1+Q_StrPrintTile+s2+s4);   //Q_StrPrintTile为打印标题
  Writeln(F, '       '+'欢迎光临！'+' ');
  Writeln(F,'   ('+strTitle+')'); //strTitle为打印商品目录
  writeln(f,s5);
  CloseFile(F);
 为什么打印不稳定？（有时可打印有时打不出）？该怎么设置？怎么改？谢谢！