if ZQuery1.RecordCount > 0 then
  begin
    ZQuery1.First;
    while not ZQuery1.Eof do
    begin
      iLayoutId := ZQuery1.FieldValues['lay_id'];
      iThumbnailString := ZQuery1.FieldValues['lay_preview'];
      if Length(Trim(iThumbnailString)) > 0 then
      begin
        ims := TMemoryStream.Create();
        TIdDecoderMIME.DecodeStream(iThumbnailString, ims);
        ims.Seek(0, soFromBeginning);

        iIEBitmap := TIEBitmap.Create;
        iIEBitmap.IELoadFromStream(ims);

        ims.Free;

        idx := iemPageLayoutOptions.AppendImage;

        iemPageLayoutOptions.SetImageFromStream(idx, ims);
        iIEBitmap.Assign(iemPageLayoutOptions.IEBitmap);
        
        iIEBitmap.Free;

      end;  //if Length(Trim(iThumbnailString)) > 0 then
      ZQuery1.Next;
    end; // while not ZQuery1.Eof do
  end; //if ZQuery1.RecordCount > 0 then