StringListe schneidet erstes Zeichen ab, warum?

[tobu]

Hallo,
ich habe ein Problem mit einer StringListe, es wird immer das erste Zeichen abgeschnitten und ich weiß nicht warum.
Ich füge mit StringList.Add einen String zur Liste hinzu und gebe sie anschließend in einem Memofeld aus, dabei geht das erste Zeichen verloren.
Ich habe schon debuggt und in der Variblen str steht der korrekte String. Hat von euch vielleicht jemand eine Idee, was da falsch läuft?

Delphi-Quellcode:

if StringList = nil then
   begin
      StringList := TStringList.Create;
      for i:=0 to FileListe.Count-1 do
      begin
        str := StringReplace(FileListe.Items.Strings[i],EdtKorrektur.Text,
                        EdtEinfuegen.Text,[rfReplaceAll]);
        StringList.Add(str);
        Memo1.Lines.Add(StringList.ValueFromIndex[i]);

      end;
   end;