Zamiana kodu ascii na litere

Witam.
Mam problem z tym kodem, tzn. kompiluje sie ale nie powstaje litera tylko jakis szlaczek i nie wiem dlaczego. Strzelam ze to w tej funkcji chr cos pomylilem.

procedure TForm1.Button1Click(Sender: TObject);
var
  ascii : integer;
  n : integer;
  z : char;
begin
  Memo2.Clear;
  for n := 1 to length(Memo1.Text) do
  begin
    z := Memo1.Text[n];
    ascii := ord(z);
    Memo2.Text := Memo2.Text + IntToStr(ascii);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  liczba : integer;
  n : integer;
  tekst : char;
begin
  Memo3.Clear;
  for n := 1 to length(Memo2.Text) do
  begin
    liczba := StrToInt(Memo2.Text[n]);
    tekst := chr(liczba);
    Memo3.Text := Memo3.Text + tekst;
end;
end;

Z gory dziekuje za odpowiedz.

procedure TForm1.Button1Click(Sender: TObject);
var S:String;
var n:Integer;
begin
  Memo2.Clear;
  S:=Memo1.Text;
  for n:=1 to length(S) do Memo2.Lines.Add(IntToStr(Ord(S[n])));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var S:String;
var n:Integer;
begin
  Memo3.Clear;
  S='';
  for n:=0 to Memo2.Lines.Count-1 do S:=S+Chr(StrToInt(Memo2.Lines[n]));
  Memo3.Text:=S;
end;