Zeilenumbruch von TStrings finden

[messie]

Moin,

ich suche gerade im BCB nach einem Zeilenumbruch von TStrings um einen Text aus einem Memo zeilenweise auszudrucken.
Nur findet die Funktion Pos() nicht das, was ich suche.

Was mache ich da falsch?

Code:

i = Pos(Char(13),Comment->Text)

Auch der Zugriff auf den Substring

Code:

i = Pos(String(Char(13)),Comment->Text.w_str());

liefert keinen sinnvollen Wert;

Comment ist eine TStringList, die den Text aus einem TMemo übergeben bekommt.

Das interessante ist, das

Code:

s = Comment->Text.SubString(1,Pos(Char(13),Comment->Text)-1);

mir den korrekten SubString rauskopiert.

Grüße, Messie