Zeichen in Memo ersetzten und Formatierung beibehalten?!

[KodeZwerg]

Ich habe mal was gebastelt was auch mehrere Änderungen zulässt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iLines, iString: Integer;
  tmp, finish: string;
begin
  finish := '';
  for iLines := 0 to Memo1.Lines.Count -1 do // -1 eingefügt @ himitsu
  begin
    tmp := Memo1.Lines.Strings[iLines];
    for iString := 1 to Length(tmp) do
    begin
      case tmp[iString] of
        Char('e'): tmp[iString] := 'E'; // Das dient mir als Beispiel, mach aus kleinem "e" ein Großes "E"
                                        // füge beliebig viele Vergleiche/Ersetze hier ein
        Char('E'): tmp[iString] := 'e'; // so wie hier, mach aus Großem "E" ein kleines "e"
      end;
    end;
    finish := finish + tmp + sLineBreak; // #13#10; ersetzt @ himitsu
  end;
  Memo2.Text := finish;
end;