Não grava arquivo .TXT

Olá pessoal tudo bem com vcs?
Estou com um pequeno probleminha que não está gravando arquivo .TXT, abaixo segue a procedure

if SaveDialog.Execute then
begin
if FileExists(SaveDialog.FileName) then
if MessageDlg(´Arquivo já existe. Deseja sobrescrever?´,
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
begin
showmessage(´Operação Cancelada´);
exit;
end;
try
edit1.Text:= ChangeFileExt(SaveDialog.FileName, ´.TXT´);
//
AssignFile(tArqMag,SaveDialog.FileName);
Rewrite(tArqMag);
//
except
showmessage(´ERRO ARQUIVO NÃO PODE SER ABERTO´);
exit;
end;
end
else
begin
ShowMessage(´Erro : Arquivo não existe´);
exit;
end;

Ele está gerando de boa o arquivo... mas não com a extensão .TXT
O que estou fazendo de errado?

Agradeço antecipadamente

[]´s