Документ doc в OleContainer

[Mutagena]

Подскажите, как нужно поместить документ doc в OleContainer.
Я пишу вот так:

procedure TAddDoc.Button1Click(Sender: TObject);
var doc: string;
begin
  doc := 'blanks/doc01.doc';
  OleContainer1.CreateObjectFromFile(doc, False);
end;

Но получаю неизвестную ошибку при нажатии на кнопку. Подскажите, как правильно.

[AlexanderKs]

Необходимо указать полный путь к файлу. Для определения пути к Exe файлу я использовал функцию:

function GetPath: string;
var s:string; i:integer;
begin
  s:=Application.ExeName;
  for i:=Length(s) downto 1 do begin
    if s[i]='\' then begin
      Delete(s,i+1,Length(s)-i);
      Break;
    end;
  end;
Result:=s;
end;

Возможно, путь к Exe находится проще. Других способов не искал.
При использовании функции код будет следующий:

procedure TAddDoc.Button1Click(Sender: TObject);
var doc: string;
begin
  doc := GetPath+'blanks/doc01.doc';
  OleContainer1.CreateObjectFromFile(doc, False);
end;

[Mutagena]

AlexanderKs, спасибо, помогло.
Ещё один вопрос. А как контролировать размер OleContainer в зависимости от размера документа? Например, если документ не помещается, чтобы появлялись полосы прокрутки?

[Stilet]

Если не ошибаюсь Оле контейнер не позволяет посмотреть содержимое так как нужно. Всегда показывается либо только первая страница ( имеется ввиду только часть данных)
Рекомендую найти подходящий компонент сторонний для отображения документа.

[AlexanderKs]

Нашел строчку кода, возможно это то, что вам нужно:

procedure TAddDoc.Button1Click(Sender: TObject);
var doc: string;
begin
  doc := GetPath+'blanks/doc01.doc';
  OleContainer1.CreateObjectFromFile(doc, False);
  OleContainer1.DoVerb(ovShow); {активация Ole объекта, появляются полосы прокрутки}
end;

Полосы прокрутки от Ms Word, но иначе, по моему, не сделать.

P.S. Нашел стандартную функцию, возвращающую путь к Exe: GetCurrentDir()

[Mutagena]

Понятно. Спасибо.