'Eigenbau Shell' verschluckt Chars

**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.

'Eigenbau Shell' verschluckt Chars

'Eigenbau Shell' verschluckt Chars

Forumregeln