procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation。作成する注釈を記述するレコード。主要なフィールドは SubType（注釈タイプ、例: ハイライト、テキストノート、インク）、Rect（PDF ユーザースペース座標の境界矩形）、Contents（注釈テキスト）、Color（注釈の色）です。レコードを渡す前にすべての関連フィールドを設定してください |
CreateAnnotation は TPdfAnnotation レコードに供給されたプロパティを使って現在ページへ新しい注釈を追加します。注釈はページの注釈配列へ追加され、Annotation[AnnotationCount - 1] ですぐにアクセスできるようになります
TPdfAnnotation レコードは注釈タイプ（SubType）、ページ上の位置（Rect、原点が左下の PDF ユーザースペースポイント）、可視テキストまたはツールチップ（Contents）、表示色（Color）を捕捉します。このプロシージャーを呼び出す前に、選択したサブタイプに関連するすべてのフィールドを設定してください。未設定のフィールドはゼロ値のまま残ります
注釈を作成した後、変更をディスクへ永続化するには SaveAs を呼び出します。注釈を削除するには適切な 0 始まりのインデックスで 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;