I am facing error while saving report in Pdf in a drive

sachin421

Hello Experts,
I am facing error while saving report in Pdf in a drive
"there is insufficient memory to execute this function this may be due to Recursive function call contact your system administrator"
I am using code for the Pdf create that is

BEGIN
IF ISCLEAR(BullZipPDF) THEN
CREATE(BullZipPDF);
ReportID := REPORT::"Customer - Statement of A/C";
FileDirectory := 'D:\Sachin\';
Window.OPEN('processing Cusomer ######################1##');
Object.GET(Object.Type::Report,'',ReportID);
IF Customer.FINDSET THEN
//REPEAT

Window.UPDATE(1,Customer."No.");
FileName := Customer."No." + '.pdf';
BullZipPDF.Init;
BullZipPDF.LoadSettings;
RunOnceFile := BullZipPDF.GetSettingsFileName(TRUE);
BullZipPDF.SetValue('Output',FileDirectory+FileName);
BullZipPDF.SetValue('Showsettings', 'never');
BullZipPDF.SetValue('ShowPDF', 'no');
BullZipPDF.SetValue('ShowProgress', 'no');
BullZipPDF.SetValue('ShowProgressFinished', 'no');
BullZipPDF.SetValue('SuppressErrors', 'yes');
BullZipPDF.SetValue('ConfirmOverwrite', 'no');
BullZipPDF.WriteSettings(TRUE);
Customer2 := Customer;
Customer2.SETRECFILTER;
REPORT.RUNMODAL(ReportID,FALSE,FALSE,Customer2);

TimeOut := 0;
WHILE EXISTS(RunOnceFile) AND (TimeOut< 10) DO BEGIN
SLEEP(1000);
TimeOut := TimeOut + 1;


MESSAGE(Text);
END;
//UNTIL Customer1.NEXT = 0;
Window.CLOSE;
END;



so I am unable to understand what is the exact fault in the code so Experts please share your feedback please.
Thanks in Advance .