Schleifen problem

[SaFu]

Hi

habe mal ein schleifen Problem

bekomme es leider nicht hin die nächsten vier zeilen von meinem memo umzuschreiben

die erste zeile von memo1 wird mit der zweiten zeile vom memo überschrieben aber wie bekomme ich den rest hin

Delphi-Quellcode:

 procedure TForm1.sysconfsumschreiben;
var alt,neu : String;
    sl: TStringList;
     i: integer;
begin
   alt:=(ExtractFilePath(ParamStr(0)) + '\Dateisysconfs\SYSCONF.S');
   neu:= (ExtractFilePath(ParamStr(0)) + '\Dateisysconfs\neueSysconf\Sysconf.s');
   sl := TStringList.Create;
  try
    sl.LoadFromFile(alt);
     for i := 0 to Pred(sl.Count) do

      sl[i] := StringReplace(sl[i],Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);// hier
      sl.SaveToFile(neu);
  finally
    FreeAndNil(sl);
  end;
end;

danke schonmal

Gruss An DeddyH