RichEdit: Wrap the text?

Hi,

does anybody know how to wrap the text at a given position (SelStart)?

I tried

SelStart := {something};
SelText := #13+#10;

It works (I have two lines now) but the problem is that Lines.Count is
still 1 !

When I do SelStart := Length(Text) the cursor has to be in line 2 but
when I do

n := SENDMESSAGE(Handle, EM_LINEFROMCHAR, -1, 0);

n is still 1. How can I do it in another way?

---
Alexander Lucke                          lu...@chez.com
LUCKE Software Development GbR           http://www.chez.com/lucke/