Cómo utilizar OLEContainer de Delphi para operar MS Word
procedimiento TForm1.Button1Click(Remitente: TObject);
var
wd, du: OLEVariant
comenzar
wd:=CreateOleObject; ('Word. Application'); //crear objeto WinWord
du:=wd.//Mostrar el nombre del documento abierto
// El siguiente contenido se puede insertar en el tuyo En el programa
du.close; // Cierra el documento
wd.Quit; // Cierra el programa
end;