Hola de nuevo ya encontre la solución al mi problema les dejo el código.
Código Delphi
[-]
procedure TFrmElaborarNotificacion.SpeedButton1Click(Sender: TObject);
var
Word: Variant;
Documento,A, B, C: Variant;
w:widestring;
begin
try
w:= UTF8Decode(ExtractFilePath(application.ExeName)+'Reportes\plantilla2015.dot');
Word := CreateOleObject('Word.Application');
Documento := Word.Documents.Add(w);
Documento := Word.Documents.Item(1);
A:='Usuario';
B:='Lazarus ';
C:= 'Object Pascal';
Documento.Variables.Add('Nombre', A);
Documento.Variables.Add('Direccion', B);
Documento.Variables.Add('Colonia', C);
Word.ActiveWindow.View.ShowFieldCodes := false;
Documento.Fields.Update;
Word.Visible := true;
except
on E: Exception do
ShowMessage(SysToUTF8(E.Message));
end;
end;