Aus TStringList laden

[Martin.Ghosts]

Der Titel ist nich optimal formuliert, mir fiel aber nichts besseres ein.
Hier ein Ausschnitt aus dem Quelltext:

Delphi-Quellcode:

var laden: TStringList;

repeat
  begin
    laden.Strings[i]:=laden.Strings[i+1];
    i:=i+2;
  end;
until(i>laden.Count);

In i steht z.B. Form4.Edit1.Text. Also soll in Form4.Edit1.Text der Inhalt aus laden.Strings[i+1] stehen. Wie kann ich dieses Problem lösen?
Vielen dank schon mal.