delphi загрузить Doc в Memo

[CAN-UKRAINE]

Прошу помощи. Можно ли как то ускорить загрузку текстового файла doc в Memo. Имеется вот такой

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Math, ExtCtrls, ComObj;
....

procedure TForm1.Button5Click(Sender: TObject);
var
OpenDlg: TOpenDialog;
  word:variant;
begin
    OpenDlg := TOpenDialog.Create(Self);
    Word := CreateOleObject('Word.Application');
    if OpenDlg.Execute then
    Word.Documents.Open(OpenDlg.FileName);
    Memo1.Text := word.ActiveDocument.Range.Text;
    word.Quit;
end;

Но при большом файле очень долго открывается


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.