Problema com leitura de arquivo .doc

Olá pessoal tudo bem
nao sei o q tah errado no codigo1 abaixo, ele nao copia o texto de arquivos jah gravados pelo word, soh copia o texto de arquivos gerados pelo codigo2 mais abaixo
se alguem puder me ajudar

grato

codigo1
procedure TForm1.Button8Click(Sender: TObject);
var
tTexto : TextFile;
sLinha : String;
begin
AssignFile(tTexto,´d:\meus documentos\teste.doc´);
Reset(tTexto);
Memo1.Clear;
While not eof(tTexto) do
begin
Readln(tTexto,sLinha);
Memo1.lines.add(sLinha);
end;
Closefile(tTexto);
end;

codigo2
procedure TForm1.Button3Click(Sender: TObject);
var
Linha: string;
tTxt: TextFile;
const
wrap=#13+10;
begin
AssignFile(tTxt, ´c:\teste.doc´);
Rewrite(tTxt);
Table1.First;
while not Table1.Eof do
begin
Linha:= Table1NM_Cidade.Value;
Table1.Next;
Writeln(tTxt, Linha);
end;
CloseFile(tTxt);
end;

tuiobecker