problem mit Delete

[EWeiss]

Delete(s, (Pos(chr($0A), s)), strLen(PAnsiChar(s)));

Wenn im meinem String am ende chr($0A) steht möchte ich ihn löschen
das problem ist nur das dann mein zeilen umbruch nicht mehr stimmt.
lösche ich es nicht habe ich nach jeder zeile in opengl ein quadrat stehen.

wie kann ich das intelligenter lösen.

gruss