procedure TForm2.ImageEnMView1ImageAdded(Sender: TObject; idx: Integer);
begin
  ImageEnMView1.ImageBottomText[idx] := 'Page ' + IntToStr(idx);
end;

procedure TForm2.ImageEnMView1GetText(Sender: TObject; Index: Integer;
    Position: TIEMTextPos; var Text: WideString);
begin
  Text := 'Page ' + IntToStr(Index);
  Position := iemtpBottom;
end;

procedure TForm2.ImageEnMView1GetText(Sender: TObject; Index: Integer;
    Position: TIEMTextPos; var Text: WideString);
begin
  if Position = iemtpBottom then
    Text := 'Page ' + IntToStr(Index + 1);
end;