Lazarus erro nos caracteres

Olá , não sei se código abaixo está certo,


Os 3 arquivos de textos originais que chamo para o programa nas suas pastas estão todos normais, acentuação,caracteres,

Mas quando executo o programa estes textos ficam todos esquisitos na parte de acentuação e com caracteres extranhos
quando enviados para os 3 TMemos

E se crio o documento clicando TButton2 estes erros permaçem no arquivo gerado também.

Agradeçido


A versão do Lázarus que estou utilizando v1.6.4.

--------------------------------------
código



unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do

Memo1.Lines.LoadFromFile('dicionario\alemao.txt');
Memo2.Lines.LoadFromFile('dicas\construcao.txt');
Memo3.Lines.LoadFromFile('variado\lilith.txt');

{ Carrega cada arquivo de texto externo de cada pasta para os 3 TMemos 1,2,3
Obs. Não coloquei o Path C:\ por estar simulando ainda na mesma pasta que estão os codigos do progama e
mesmo colocando o caminho do path C:\ o problema continua}

end;


procedure TForm1.Button2Click(Sender: TObject);

Begin
memo4.Lines.AddStrings(Memo1.Lines);
memo4.Lines.AddStrings(Memo2.Lines);
memo4.Lines.AddStrings(Memo3.Lines);

Memo4.Lines.SaveToFile('texto.txt');


{ TMemo4 carrega e junta (soma)o conteúdo dos três arquivos de textos de cada TMemo 1,2 e 3,
e o salva como num documento de texto simples, com o nome texto.txt}


end;
end.