No fungovat to funguje ale neni to vončo co pořebují.
Přesto děkují.

Prosíl bych odpovědět na puvodni otazku.

Pokud jsem to dobše pochopil tak pomoci cyklu for prolezu všechny řadky od o až po předposlední žadek.
S každeho řadku si připočtu do X kolik ma řadek znaku pomoci length a pak přičtu poskedni přes POS().

Na doporučení pme jsem to překopal s memo do TRichEdit.
Nejde zjistit v teto komponentě ty pozici jednoduchšim zpusobem ??