procedure TForm1.ReadImages(fn: string; var l: Tstringlist);

var

  i: integer;

  imagecount: integer;

  imageid: integer;

  x: single;

  y: single;

  b: single;

  h: single;

  IL: integer;

  PR: integer;

  p: integer;

  ImageData: ansistring; // !!!!!! wegen Stream !!!

  seitenhoehe: single;

  FH: integer;

begin

  // Für DirectAccess mit FileHandle öffnen

  FH := PDFLibrary.DAOpenFile(fn, '');

  // alte Streams löschen

  for i := 1 to High(streamarray) do

    streamarray.Free;

  setlength(streamarray, 1);

  for p := 1 to PDFLibrary.PageCount do

  begin

    PR := PDFLibrary.DAFindPage(FH, p);

    IL := PDFLibrary.DAGetPageImageList(FH, PR);

    seitenhoehe := PDFLibrary.DAGetPageHeight(FH, PR);

    for i := 1 to PDFLibrary.DAGetImageListCount(FH, IL) do

    begin

      // Read the image data

      ImageData := PDFLibrary.DAGetImageDataToString(FH, IL, i);

      // Determine the location and size of the image on the page

      x := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 501);

      y := seitenhoehe - PDFLibrary.DAGetImageDblProperty(FH, IL, i, 502);

      b := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 503) -

        PDFLibrary.DAGetImageDblProperty(FH, IL, i, 501);

      h := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 502) -

        PDFLibrary.DAGetImageDblProperty(FH, IL, i, 508);

      // für jedes gefundene Bild Streamarray verlängern und speichern

      setlength(streamarray, length(streamarray) + 1);

      streamarray[high(streamarray)] := TMemorystream.Create;

      streamarray[high(streamarray)].Position := 0;

      streamarray[high(streamarray)].WriteBuffer(Pointer(ImageData)^,

        length(ImageData));

      // in Liste eintragen

      l.Add('P:' + p.ToString);

      l.Add('{' + 'Image' + high(streamarray).ToString + '}');

      l.Add('X:' + x.ToString);

      l.Add('Y:' + y.ToString);

      l.Add('B:' + b.ToString);

      l.Add('H:' + h.ToString);

    end; // End image loop

  end;

  PDFLibrary.DACloseFile(FH);

end;