1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

     while not DataModule1.ADOQuery_Mieter.Eof do
          Begin
           GS:=0;
           fwe:=DataModule1.ADOQuery_Mieter['WE_NR'];
           fo:=DataModule1.ADOQuery_Mieter['obj'];
           frxPDFExport1_Zusammenfassung.FileName:=fo+'-'+fwe;
           if GS+WS >=18 then
              Begin
              frxReport_A10_3.Export(frxPDFExport1_Zusammenfassung);
              End;
           if GS+WS < 18 then
              Begin
              frxReport_A10.Export(frxPDFExport1_Zusammenfassung);
              End;
           DataModule1.ADOQuery_Mieter.Next;
          End;
     End;
   End;                    

1:
2:
3:
4:
5:
6:

if frxReport_A10_3.Export(frxPDFExport1_Zusammenfassung) then
begin
  // weitermachen
end
else
  ShowMessage('Fehler');