'Eigenbau Shell' verschluckt Chars

[Der.Kaktus]

Zitat von nEmai:

Guten Abend,

ich bastel an einer Shell-Imitation(Memo+Edit) als 'GUI' für ein kleines Textverschlüsselungsprogramm.

Delphi-Quellcode:

var
  FText: TStringList;

procedure TForm1.Print;
var
  iCount: Integer;
begin
  for iCount:= 0 to FText.Count-1 do
    Memo1.Lines.Add(FText.ValueFromIndex[iCount]);
end;

procedure TForm1.OpenFile(aPath: String);
begin
  FText.LoadFromFile(aPath);
  Print;                                //im Memo: 'est1'
  FText.SaveToFile('./outp.txt');       //in der Textdatei: 'test1'
  ShowMessage(FText.ValueFromIndex[0]); //Ausgabe: 'est1'
end;

Mein Problem ist, dass im Memo der erste Buchstabe jeder Zeile fehlt.
In meiner Testdatei steht:
test1
test2
test3

Wenn ich sie öffne kommt im Memo:
est1
est2
est3

Woran liegt das?? Man möchte ja fast meinen ValueFromIndex frisst den ersten Char. oO
(Wenn ihr mehr Quelltext braucht, sagt bescheid.)

MfG.

Hallo, geht das nicht mit memo1.Lines.Add(Ftext.strings[iCount]); ???