procedure TForm1.Button1Click(Sender: TObject);<br>var CustomProperties : OLEVariant;<br> CustomProperty : OLEVariant;<br>begin<br> memo1.Text:='';<br> try<br> CustomProperties := wordapp.ActiveDocument.CustomDocumentProperties;<br> CustomProperty := CustomProperties.Item [edit1.Text];<br> memo1.Text := CustomProperty.Value;<br> except<br> end;<br><br>end;