مشكلة تواجهني في الطباعة (فاستروبورت)

كود :
procedure TForm2.frxReport1BeforePrint(Sender: TfrxReportComponent);
var TCph01,TCph02,TCph03,TCph04,RtMta,RtMtb,MtsA,TxtMA,TxtNA,MtsB,TxtMB,TxtNB,
    MtsC,TxtMC,TxtNC,MtsD,TxtMD,TxtND:TfrxMemoView;
begin
  TxtMA:= TfrxMemoView(frxReport1.FindObject('MemoA'));
  TxtNA:= TfrxMemoView(frxReport1.FindObject('MemoB'));
  MtsA:= TfrxMemoView(frxReport1.FindObject('MemoC'));
  TCph01:= TfrxMemoView(frxReport1.FindObject('MChp01'));

  TxtMB:= TfrxMemoView(frxReport1.FindObject('MemoD'));
  TxtNB:= TfrxMemoView(frxReport1.FindObject('MemoE'));
  MtsB:= TfrxMemoView(frxReport1.FindObject('MemoF'));
  TCph02:= TfrxMemoView(frxReport1.FindObject('MChp02'));

  TxtMC:= TfrxMemoView(frxReport1.FindObject('MemoG'));
  TxtNC:= TfrxMemoView(frxReport1.FindObject('MemoH'));
  MtsC:= TfrxMemoView(frxReport1.FindObject('MemoJ'));
  TCph03:= TfrxMemoView(frxReport1.FindObject('MChp03'));

  TxtMD:= TfrxMemoView(frxReport1.FindObject('MemoK'));
  TxtND:= TfrxMemoView(frxReport1.FindObject('MemoL'));
  MtsD:= TfrxMemoView(frxReport1.FindObject('MemoM'));
  TCph04:= TfrxMemoView(frxReport1.FindObject('MChp04'));

  if DM.TB2.Fieldvalues['MT']<>0 then
  begin
    if (DM.TB2.FieldValues['Cph']='10')And(DM.TB2.FieldValues['Tpe']='D')then
    begin
    TCph01.Memo.Text:= DM.TB2.Fieldvalues['Cph'];
    TxtMA.Memo.Text:= DM.TB2.Fieldvalues['CdeA'];
    TxtNA.Memo.Text:= DM.TB2.Fieldvalues['Nom'];
    MtsA.Memo.Text:= FormatFloat('#,##0.00',DM.TB2.Fieldvalues['MT']);
    end;
    if (DM.TB2.FieldValues['Cph']='11')And(DM.TB2.FieldValues['Tpe']='D')then
    begin
    TCph02.Memo.Text:= DM.TB2.Fieldvalues['Cph'];
    TxtMB.Memo.Text:= DM.TB2.Fieldvalues['CdeA'];
    TxtNB.Memo.Text:= DM.TB2.Fieldvalues['Nom'];
    MtsB.Memo.Text:= FormatFloat('#,##0.00',DM.TB2.Fieldvalues['MT']);
    end;
    if (DM.TB2.FieldValues['Cph']='12')And(DM.TB2.FieldValues['Tpe']='D')then
    begin
    TCph03.Memo.Text:= DM.TB2.Fieldvalues['Cph'];
    TxtMC.Memo.Text:= DM.TB2.Fieldvalues['CdeA'];
    TxtNC.Memo.Text:= DM.TB2.Fieldvalues['Nom'];
    MtsC.Memo.Text:= FormatFloat('#,##0.00',DM.TB2.Fieldvalues['MT']);
    end;
    if (DM.TB2.FieldValues['Cph']='13')And(DM.TB2.FieldValues['Tpe']='D')then
    begin
    TCph04.Memo.Text:= DM.TB2.Fieldvalues['Cph'];
    TxtMD.Memo.Text:= DM.TB2.Fieldvalues['CdeA'];
    TxtND.Memo.Text:= DM.TB2.Fieldvalues['Nom'];
    MtsD.Memo.Text:= FormatFloat('#,##0.00',DM.TB2.Fieldvalues['MT']);
    end;
  end;
end;