// Set the text of all text objects in page ImageEnView1.LockPaint(); for i := 0 to ImageEnView1.PdfViewer.Objects.Count - 1 do if objType = ptText then ImageEnView1.PdfViewer.Objects[i].Text := 'Text Object ' + i.ToString; ImageEnView1.UnlockPaint();