Wie kann man bei Lazarus in einem Memo alle Zeichen nebeneinander bekommen?

[PaulMaler]

Code:

procedure TForm1.Button3Click(Sender: TObject);
var x:integer; y:string;
begin
  label1.caption:=' ';
  wor:=memo1.text;
  s:=wor;
  memo1.clear;
  for i:=1 to length(s) do
begin
  x:=ord(s[i]);
begin
  If x=69 Then x:=90 Else
  If x=101 Then x:=122 Else
  x:=x
end;
  y:=chr(x);
  Memo1.Lines.strings[0]:=memo1.lines.strings[0]+y;
end;
end

Ich habe ein Programm geschrieben, in dem alle e bzw. E gegen z und Z ausgetauscht werden. Die Ausgabe erfolgt in einem Memo, was soweit auch alles klappt, zumindest, solange der Anfangstext nur eine Zeile lang ist. Sobald der Text mehr als eine Zeile einnimmt, schreibt das Programm einige Wortschnipsel untereinander ins Memo... und irgendwie rückwerts. Vllt hat einer von euch ja eine Idee, wie ich das hinbekommen kann, außer, dass ich die Zeile länger mache. Dankeschön schonmal im Vorraus und falls ihr weitere Infos wollt einfach fragen. Auf dem Bild seht ihr, was ich meine.