var 
  Word_Handle, Doc_Handle: OleVariant;
begin
        OpenDialog1.Execute;
        ShowMessage(OpenDialog1.FileName);
        //ShellExeCute(handle,Nil,PChar(OpenDialog1.FileName),Nil,Nil,SW_SHOWNORMAL);
        try
                Word_Handle := CreateOleObject('Word.Application');
        except
        end;
        Word_Handle.Visible := True;
        Doc_Handle := Word_Handle.Documents.Add(Template := OpenDialog1.FileName, NewTemplate := False);