Delphi-Help

uses 

  ComObj; 

procedure TForm1.Button1Click(Sender: TObject); 

var 

  WordApp: OLEvariant; 

begin 

  Screen.Cursor := crHourglass; 

  try 

    // Create Word Instance 

    WordApp := CreateOleObject('Word.Application'); 

  except 

    ShowMessage('Cannot start MS Word.'); 

    Screen.Cursor := crDefault; 

    Exit; 

  end; 

  try 

    // Open a Word Document 

    WordApp.Documents.Add(Template := 'C:\TestDoc.doc'); 

    // Show Word 

    WordApp.Visible := True; 

    // Check if FormField exists and asign your text 

    if WordApp.ActiveDocument.Bookmarks.Exists('YourFormFieldName') then 

      WordApp.ActiveDocument.FormFields.Item('YourFormFieldName').Result := 'Your Text'; 

  finally 

    WordApp := Unassigned; 

    Screen.Cursor := crDefault; 

  end; 

end;