MoveTo(20, 100); LineTo(650, 100); //第一根橫線
      MoveTo(20, 100); LineTo(20, 290); //第一根豎線
      MoveTo(650, 100); LineTo(650, 290); //最后一根豎線
      MoveTo(20, 160); LineTo(650, 160);
      MoveTo(110, 120); LineTo(300, 120);
      MoveTo(110, 140); LineTo(260, 140);
      MoveTo(430, 120); LineTo(650, 120);

      MoveTo(110, 100); LineTo(110, 270);
      MoveTo(185, 120); LineTo(185, 220);
      MoveTo(260, 120); LineTo(260, 220);
      MoveTo(300, 100); LineTo(300, 220);
      MoveTo(340, 100); LineTo(340, 220);
      MoveTo(380, 100); LineTo(380, 220);
      MoveTo(430, 100); LineTo(430, 220);

      MoveTo(20, 240); LineTo(650, 240);
      MoveTo(20, 270); LineTo(650, 270);
      MoveTo(20, 290); LineTo(650, 290);

      MoveTo(160, 270); LineTo(160, 290);
      MoveTo(280, 270); LineTo(280, 290);
      MoveTo(410, 270); LineTo(410, 290);
      MoveTo(530, 270); LineTo(530, 290);

      for i := 1 to 3 do
      begin
        MoveTo(20, 160 + i * 20); LineTo(650, 160 + i * 20);
      end;
      //*******************************
      TextOut(30, 125, '租 賃 項 目');
      TextOut(158, 105, '租 賃 日 期');
      TextOut(135, 125, '起');
      TextOut(195, 125, '止');
      TextOut(115, 145, '年 月 日');
      TextOut(195, 145, '年 月 日');
      TextOut(265, 135, '天 數');
      TextOut(302, 125, '單 位');
      TextOut(345, 125, '數 量');
      TextOut(390, 120, '收 費');
      TextOut(390, 135, '標 準');
      TextOut(510, 105, '金    額');
      for i := 1 to 11 do
      begin
        if i = 2 then
          Pen.Color := clRed
        else
          Pen.Color := clBackground;
        MoveTo(650 - 20 * I, 120); LineTo(650 - I * 20, 240);
        CurrentIndex := (12 - i + 1);
        DrawMoneyCp := Copy(MoneyCaStr, CurrentIndex * 2 - 1, 2);
        TextOut(650 - (20 * i - 5), 135, DrawMoneyCp);
      end;
     //////////////////////////////////

      for i:=0 to 3 do
      begin
        if i<>3 then
        begin
          TWidth:=20+(110-20-(TextWidth('楊') * Length(InVoiceTable.Cells[0,3+i])div 2)) div 2;
          TextOut(TWidth,165+i*20,InVoiceTable.Cells[0,3+i] );
          TWidth:=110+(185-110-(TextWidth('楊') * Length(InVoiceTable.Cells[2,3+i])div 2)) div 2;
          TextOut(TWidth,165+i*20,InVoiceTable.Cells[2,3+i] );
          TWidth:=185-2+(260-185-(TextWidth('楊') * Length(InVoiceTable.Cells[4,3+i])div 2)) div 2;
          TextOut(TWidth,165+i*20,InVoiceTable.Cells[4,3+i] );
          TWidth:=260-2+(300-260-(TextWidth('楊') * Length(InVoiceTable.Cells[5,3+i])div 2)) div 2;
          TextOut(TWidth,165+i*20,InVoiceTable.Cells[5,3+i] );
          TWidth:=300-2+(340-300-(TextWidth('楊') * Length(InVoiceTable.Cells[6,3+i])div 2)) div 2;
          TextOut(TWidth,165+i*20,InVoiceTable.Cells[6,3+i] );
          TWidth:=340-2+(380-340-(TextWidth('楊') * Length(InVoiceTable.Cells[7,3+i])div 2)) div 2;
          TextOut(TWidth,165+i*20,InVoiceTable.Cells[7,3+i] );
          TWidth:=380-2+(430-380-(TextWidth('楊') * Length(InVoiceTable.Cells[8,3+i])div 2)) div 2;
          TextOut(TWidth,165+i*20,InVoiceTable.Cells[8,3+i] );
        end;
        DrawMoney := InVoiceTable.Cells[9, 3+i];
        if DrawMoney <> '' then
          DrawMoney := FormatFloat('0.00', StrToFloat(DrawMoney));
        DrawMoney := StringReplace(DrawMoney, '.', '', []);
        for J := 1 to 12 do
        begin
          TWidth := TextWidth('1') + 8;
          if J > Length(DrawMoney) then
            DrawOne := ''
          else
            DrawOne := Copy(DrawMoney, Length(DrawMoney) - J + 1, 1);
            TextOut(650 - (20 * j - 5), 165+i*20, DrawOne);
        end;
      end;
      TextOut(23,225,'金額合計|大寫');
      TextOut(130,225,InVoiceTable.Cells[2,6]);
      TextOut(35,250,'備    注');
      TextOut(130,250,InVoiceTable.Cells[2,7]);
      TextOut(38,275,'出租方(蓋章有效)');
      TextOut(230,275,'開票人:');
      TextOut(290,275,InVoiceTable.Cells[6,9]);
      TextOut(480,275,'收款人:');
      TextOut(540,275,InVoiceTable.Cells[10,9]);
      Font.Color:=clBackground;
      TextOut(50,300,' 按照《中華人民共和國企業所得稅暫行條例》的規定，這種車貼屬于工資的組成部分，只能');
      TextOut(50,315,'在企業所得稅前限額扣除，超過部分要做納稅調整。而且按照《中華人民共和國個人所得稅法》');
      TextOut(50,330,'的規定，這種車貼也是要征收個人所得稅的。如果允許編造這樣一個虛假的合同到稅務機關代開');
      TextOut(50,345,'發票，企業不僅可以在繳納所得稅前全額扣除，作為員工個人還可以少繳或不繳個人所得稅。');
    end;
  end;