Delphi-Word poner imagen en la cabecera del documento
 

Hola, estoy creando un documento Word desde Delphi 2007, y no se como poner una Imagen en la cabecera. Utilizo el siguiente codigo, pero la imagen la crea fuera de la cabecera.

Alguna sugerencia

Un saludo.

Código Delphi [-]
 with Word do
  begin
    with Selection do
    begin
      with Sections.Item(1).Headers.Item(1).Range do
      begin
        Text := 'LINEA DE TEXTO EN LA CABECERA'+#13;
        fic_imagen:= fdm.ADOTb_config.FieldByName('c_ruta_logo').AsString;
        if FileExists(fic_imagen) then
        begin
          LinkToF:=false;
          SaveWdoc:=true;
          Selection.InlineShapes.AddPicture(Fic_imagen,LinkToF,SaveWDoc,EmptyParam);
        end;
      end;
  .....
  ....

Bueno, parece que la solución era quitar la palabra Selection, para que la imagen fuera a la cabecera.

Un saludo a todos.

Código Delphi [-]
Selection.InlineShapes.AddPicture(Fic_imagen,LinkToF,SaveWDoc,EmptyParam); // mal, va al documento
InlineShapes.AddPicture(Fic_imagen,LinkToF,SaveWDoc,EmptyParam); // bien, va a la cabecera