Buchstaben ersetzen

[Ricoo]

Hallo!

Ich komme mal wieder nicht weiter. Ich möcht einen Text in Memo1 einlesen, alle A's durch B's ersetzen und dann in Memo2 ausgeben.
Nur funktioniert das Ganze nichso.

Kann mir Jemand helfen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j:Integer;
    Datei:TextFile;
    Zeile: String;
    zeichen: char;

begin
  AssignFile(Datei, 'Liesmich.TXT');
  Reset(Datei);

  While not EOF(Datei) do Begin
    Readln(datei,Zeile);
    Memo1.Lines.Add(Zeile);
  end;
  closeFile(datei);

  for i:=0 to Memo1.Lines.Count do
    begin
      zeile:=Memo1.Lines[i];

      for j:= 0 to 10 do
        begin
         zeichen := zeile[j];

         if zeichen = 'b' then
          begin
            zeile[j] := 'a';

          end;

        end;

      Memo2.Lines.Add(Zeile);
    end;
end;

Das mit dem 0 to 10 in der zweiten For-Schleife is nur zu Test zwecken, wenns bei den ersten 10 klappt, muss es auch bei den nächsten 10 funktionieren.. xD

Danke schonmal!