procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation。描述要创建的注释的记录。关键字段包括 SubType（注释类型，例如高亮、文本备注、墨迹）、Rect（PDF 用户空间坐标中的边界矩形）、Contents（注释文本）和 Color（注释颜色）。传递记录前请填写所有相关字段 |
CreateAnnotation 使用 TPdfAnnotation 记录中提供的属性向当前页面添加新注释。注释被追加到页面的注释数组中，并可通过 Annotation[AnnotationCount - 1] 立即访问
TPdfAnnotation 记录捕获注释类型（SubType）、其在页面上的位置（Rect，采用 PDF 用户空间点，原点位于左下角）、可见文本或工具提示（Contents）以及显示颜色（Color）。调用此过程前，请设置与所选子类型相关的每个字段；未设置的字段保留其零值
创建注释后，调用 SaveAs 将更改持久化到磁盘。要删除注释，请使用带有相应从零开始索引的 DeleteAnnotation
var
Ann: TPdfAnnotation;
begin
Pdf1.PageIndex := 0;
FillChar(Ann, SizeOf(Ann), 0);
Ann.SubType := asHighlight;
Ann.Rect.Left := 72.0;
Ann.Rect.Bottom := 680.0;
Ann.Rect.Right := 300.0;
Ann.Rect.Top := 695.0;
Ann.Contents := 'Key figure — review before sign-off';
Ann.Color := clYellow;
Pdf1.CreateAnnotation(Ann);
Pdf1.SaveAs('output_annotated.pdf');
end;