[Mad programmer]

Брось на форму Memо,OpenDialog. В uses добавь модуль comObj.
и напиши это

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
  MSWord: Variant;
begin
if OpenDialog1.Execute then
  begin
     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
      try
        MsWord := GetActiveOleObject('Word.Application');
      except
        try
          MsWord := CreateOleObject('Word.Application');
          MsWord.Visible := True;
        except
          Exception.Create('Error');
        end;
      end;
  try
      MSWord.Documents.Add;
      MSWord.Selection.Font.Size := 12;
      MSWord.Selection.TypeText(Memo1.Text);
  finally
    MSWord:=Unassigned;
  end;
  end;

end;