* Remove debug writelns

(cherry picked from commit 88b5728d944506283f20a5565da74ef5fb691391)

packages/fcl-pdf/src/fppdfobjects.pp

@@ -1060,7 +1060,6 @@ end;
 
 procedure TPDFPath.AddSegment(aSegment: TPDFPathSegment);
 begin
-  Writeln('Adding : ',aSegment.Description);
   if (FCount=Length(FSegments)) then
     SetLength(FSegments,Length(FSegments)+SegmentDelta);
 
@@ -1887,7 +1886,6 @@ Var
   S : String;
 
 begin
-  Writeln('Registering ',classname,' for command ',RegisterCommandName,' and type ',CommandType);
   S:=RegisterCommandName;
   If S<>'' then
     RegisterCommand(S,Self);
@@ -2122,10 +2120,6 @@ begin
         begin
         aParent:=TPDFIndirect(Obj);
         Obj:=TPDFIndirect(aParent).ObjectDict;
-        if assigned(Obj) then
-            Writeln('Indirect resource : ', TPDFDictionary(Obj).GetDescription)
-        else
-          Writeln('Indirect object ',aParent.ObjectID,'does not have a dict');
         end;
       end;
     if Obj is TPDFDictionary then