How to Load Richedit Line by Line From File

Question

I need to load a Richedit from a file. txt reading line by line.

I’m using a code, but Richedit doesn’t carry accented characters (Examples: ç, à, á, ã, é, ê, í, ô, õ, ó, ù...)

The code is as follows::

procedure TFrmMain.AbrirTxtNovo;
var
   MyOpenDialog : TOpenDialog;
   MyTextFile : TextFile;
   Linha : String;
begin
MyOpenDialog := TOpenDialog.Create(self);
MyOpenDialog.Filter := 'Arquivos Texto|*.txt';
MyOpenDialog.InitialDir := 'C:\';
MyOpenDialog.Title := ' Selecione um arquivo para leitura ';

If (MyOpenDialog.Execute) And (Length (MyOpenDialog.FileName) > 0) then
   begin
   AssignFile (MyTextFile, MyOpenDialog.FileName);
   Reset (MyTextFile);
   RichEdit.ScrollBars := ssBoth; // Permito exibição das Scroolbars
   RichEdit.Lines.Clear; // Limpo o RichEdit
   RichEdit.Font.Name := 'Arial'; // Ajusto a fonte para Arial
   RichEdit.WordWrap := False; // Evito quebra na linha

   while not (Eof (MyTextFile)) do
      begin
      ReadLn (MyTextFile, Linha);
      RichEdit.Lines.Add (LimpaString (Linha));
      end;

   CloseFile (MyTextFile);
   end
else
   Application.MessageBox(PChar ('Erro ao tentar ler o arquivo!' +
   MyOpenDialog.FileName), 'Erro na abertura do arquivo', mb_Ok);

end;

The function Cleanstring

function LimpaString (strIN: String): String;
var
   Counter : Integer;
   strOUT : String;
begin
   for Counter := 1 to Length (strIN) do
   if (Ord (strIN[Counter]) >= 032) and (Ord (strIN[Counter]) <= 125) then
       strOUT := strOUT + strIN[Counter];

Result := strOUT;
end;

How to solve this problem?