diff --git a/lcl/postscriptcanvas.pas b/lcl/postscriptcanvas.pas
index 3887c59398..80d7ab9361 100644
--- a/lcl/postscriptcanvas.pas
+++ b/lcl/postscriptcanvas.pas
@@ -1402,6 +1402,12 @@ begin
   ImgWidth:=SrcGraphic.Width;
   ImgHeight:=SrcGraphic.Height;
 
+  //if not FPImage then draw ab Rectangle because other wise PostScript
+  //interpreter wait infinite some RGB datas
+  {$ifndef DisableFPImage}
+  //if not FPImage then draw ab Rectangle because other wise PostScript
+  //interpreter wait infinite some RGB datas
+  {$ifndef DisableFPImage}
   DrawWidth:=X1-X;
   DrawHeight:=Y-Y1;
   ClearBuffer;
@@ -1417,9 +1423,25 @@ begin
 
   GetRGBImage(SrcGraphic,fBuffer);
   WriteB('% end of image data');
+  {$else}
+  WriteB('newpath');
+  writeB(Format('    %d %d moveto',[X1,Y1]));
+  writeB(Format('    %d %d lineto',[X2,Y1]));
+  writeB(Format('    %d %d lineto',[X2,Y2]));
+  writeB(Format('    %d %d lineto',[X1,Y2]));
+  writeB('closepath');
+  {$endif}
   WriteB('grestore');
 
   Write(fBuffer);
+  {$else}
+  WriteB('newpath');
+  writeB(Format('    %d %d moveto',[X1,Y1]));
+  writeB(Format('    %d %d lineto',[X2,Y1]));
+  writeB(Format('    %d %d lineto',[X2,Y2]));
+  writeB(Format('    %d %d lineto',[X1,Y2]));
+  writeB('closepath');
+  {$endif}
 
   Changed;
 end;