diff --git a/packages/fcl-pdf/examples/simpleread.pp b/packages/fcl-pdf/examples/simpleread.pp
new file mode 100644
index 0000000000..f13793674c
--- /dev/null
+++ b/packages/fcl-pdf/examples/simpleread.pp
@@ -0,0 +1,38 @@
+{$mode objfpc}
+{$h+}
+uses fppdfobjects, fppdfparser, sysutils, classes;
+
+procedure ReadPDF(const aStream: TStream; aDoc: TPDFDocument);
+
+var
+  aParser : TPDFParser;
+
+begin
+  aParser:=TPDFParser.Create(aStream);
+  try
+    aParser.ResolveToUnicodeCMaps:=True;
+    aParser.ParseDocument(aDoc);
+  finally
+    aParser.Free;
+  end;
+end;
+
+var
+  F : TFileStream;
+  Doc : TPDFDocument;
+  
+begin
+  if ParamCount<1 then
+    begin
+    Writeln('Usage : simpleread filename');
+    Halt(1);
+    end;
+  F:=TFileStream.Create(paramstr(1),fmCreate or fmShareDenyNone);
+  try
+    Doc:=TPDFDocument.Create;
+    ReadPDF(F,Doc);
+  finally
+    doc.free;
+    f.free;
+  end;  
+end.
\ No newline at end of file
diff --git a/packages/fcl-pdf/examples/simpleread2.pp b/packages/fcl-pdf/examples/simpleread2.pp
new file mode 100644
index 0000000000..8da4296a98
--- /dev/null
+++ b/packages/fcl-pdf/examples/simpleread2.pp
@@ -0,0 +1,20 @@
+{$mode objfpc}
+{$h+}
+uses fppdfobjects, fppdfparser;
+
+var
+  Doc : TPDFDocument;
+  
+begin
+  if ParamCount<1 then
+    begin
+    Writeln('Usage : simpleread filename');
+    Halt(1);
+    end;
+  Doc:=TPDFDocument.Create;
+  try
+    Doc.LoadFromFile(paramstr(1));
+  finally
+    doc.free;
+  end;  
+end.
\ No newline at end of file