Просмотр Word документа на форме.

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc : Variant;
  S : String;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
 
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( Application.ExeName )
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;
 
  //Делаем видимым окно MS Word.
  wdApp.Visible := True;
  //Ссылка на коллекцию документов.
  wdDocs := wdApp.Documents;
  //Попытка открыть выбранный файл.
  wdDoc := wdDocs.Open(FileName:=Od.FileName);
  (*
  //На случай, если надо создать новый документ.
  //Если параметр Template:='...' не задан,
  //то новый документ создаётся по шаблону Normal.Dot.
  //wdDoc := wdDocs.Add;
  *)
  //Добавляем пустую строку в конец документа.
  wdDoc.Range.InsertAfter(#10);
  //Добавляем текст в конец документа.
  S := Memo1.Text;
  wdDoc.Range.InsertAfter(S);
  //Закрываем MS Word.
  //wdApp.Quit;
end;

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.doc';
var
  wdApp, wdDocs, wdDoc : Variant;
  S, FileName : String;
begin
  //Полное имя файла документа - предполагается, что он лежит в той же папке,
  //что и исполняемый файл программы. Возможно, файл должен лежать в какой-то
  //вложенной папке, тогда можно Fn задать, например, так: Fn = 'Data\file.doc';
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  //Проверка на существование файла.
  if not FileExists(FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
  //Попытка запустить MS Word и открыть в нём файл.
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;
...
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons;
 
type
  TForm1 = class(TForm)
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    btn5: TSpeedButton;
    btn6: TSpeedButton;
    procedure btn1Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
  uses Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  f[COLOR="Red"]form2.load('C:\Documents and Settings\User\Desktop\project2\Text_Data\stend.htm');[/COLOR]
end;
 
procedure TForm1.btn4Click(Sender: TObject);
begin
  form2.load('C:\Documents and Settings\User\Desktop\project2\Text_Data\pomilov.htm');
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
 form3 := Tform3.create(self);
 form3.showmodal;
 form3.free;
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
 form4 := Tform4.create(self);
 form4.showmodal;
 form4.free;
end;
 
procedure TForm1.btn5Click(Sender: TObject);
begin
 form5 := Tform5.create(self);
 form5.showmodal;
 form5.free;
end;
 
procedure TForm1.btn6Click(Sender: TObject);
begin
 form6 := Tform6.create(self);
 form6.showmodal;
 form6.free;
end;
 
end.
 
 
вот  форма два открывается при нажатии кнопки проблема в том что путь к файлам статический а мне нужно что бы перемужать папку с программой можно было хотябы в пределах диска 
 
 
 
 
unit Unit2;
 
interface
 
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, Buttons, ExtCtrls;
 
type
  TForm2 = class(TForm)
    img1: TImage;
    img2: TImage;
    btn1: TSpeedButton;
    wb1: TWebBrowser;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure Load(ADocName: String);
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
 { TForm2 }
 
procedure TForm2.Load(ADocName: String);
begin
  WB1.Navigate(ADocName);
  ShowModal;
end;
 
procedure TForm2.btn1Click(Sender: TObject);
begin
Close;
end;
 
end.

var
path:string; 
begin
path:=extractfilepath(paramstr(0)); //получение пути, там где лежит сама программа
end;