Люди плз . подскажите как открыть вордовский док файл для просмотра ...допустим чтоб он отображался в моём прилложении .

пасиба

unit now;

interface

uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, ComObj, ActiveX, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ServerIsRunning: Boolean;
Unknown: IUnknown;
Result: HResult;
AppProgID: String;
App: Variant;
begin
AppProgID:= 'Word.Application';
ServerIsRunning:= False;
Result:=
GetActiveObject(ProgIDToClassID(AppProgID),
nil, Unknown);
if (Result = MK_E_UNAVAILABLE) then
App:= CreateOleObject(AppProgID)
else begin
App:=GetActiveOleObject(AppProgID);
ServerIsRunning:= True;
end;
App.Visible:= True;
//------------------------------------------
App.Documents.Open('E:\sera.doc');

//------------------------------------------
//if not ServerIsRunning then App.Quit;
//App:=Unassigned;
end;

end.