StringReplace innerhalb von Schleifen

[Schmile]

hallo leute!

habe folgendes problem: ich möchte gerne ein ziel-memo (Memo2) durchsuchen lassen und dabei einen bestimmten substring, der in einem anderen memo deklariert ist (MemoOldProvinces) jeweils durch einen anderen string, der wiederum in einem anderen memo (MemoNewProvinces) steht, ersetzen lassen. macht meine prozedur aber leider nicht. habe dazu folgenden code geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for j:=0 to Memo2.Lines.Count do
        begin
        for i:=0 to MemoOldProvinces.Lines.Count do
                begin
                StringReplace(Memo2.Lines[j],MemoOldProvinces.Lines[i],MemoNewProvinces.Lines[i],[rfReplaceAll]);
                end;
        end;
end;

was muss ich da noch ergänzen?!

schönen dank im voraus!