Zwei Stringlisten sortieren

[Luckie]

Da die vorgeschlagenen Methoden irgendwas als Objekt zu speichern irgendwie nicht funktionieren, versuche ich jetzt über die Methode mit dem Sortieren der Stringliste zu gegehn. Problem habe ich im mersten Posting beschrieben. Ich bin jetzt so weit:

Delphi-Quellcode:

procedure Tform1.SortSlFiles(slTemplate: TStringlist);
var
  slTemp: TStringList;
  i: Integer;
  //idx: Integer;
  s: string;
begin
  i := 0;
  slTemp := TStringList.Create;
  try
    while slTemp.Count <= slTemplate.Count do
    begin
      s := slFiles.Strings[i];
      if pos(slTemplate.Strings[i], s) > 0 then
      begin
        slTemp.Add(s);
        Writeln(s);
      end;
      Inc(i);
    end;
    slFiles.Clear;
    for i := 0 to slTemp.Count -1 do
    begin
      slFiles.Add(sltemp.Strings[i])
    end;
  finally
    FreeAndNil(slTemp);
  end;
end;

Der Aufmerksame Leser wird sehen was passiert. Ich renne über den Listenidex hinaus, da i jedesmal erhöht wird und irgendwann ist i größer als Count - 1 und ich habe noch nicht alle Einträge in der neuen Liste. Es wäre schön, wenn mir da jemand helfen könnte, ich wollte die Software in den nächsten Tagen ausliefern.