uses ComObj; 
 
var 
  Word1: OleVariant; 
 
function doctxt(datei: string): string; 
begin 
  Word1 := CreateOleObject('Word.Application'); 
  try 
    Word1.Documents.Open(datei); 
    Word1.Selection.WholeStory; 
    result := adjustlinebreaks(Word1.Selection.Text); 
  finally 
    Word1.Quit; 
  end; 
end; 
 
procedure TForm1.Button6Click(Sender: TObject); 
begin 
  screen.cursor := crHourGlass; 
  Memo2.scrollbars := ssVertical; 
  Memo2.wordwrap := true; 
  Memo2.font.name := 'Times New Roman'; // sollte unbedingt TrueType sein 
  Memo2.font.size := 11; 
  Memo2.text := doctxt('c:\test.doc'); 
  screen.cursor := crDefault; 
end;