Выделенный текст Опции

[Klose]

Здрасте. Как узнать, что текст выделен?
Например : имеются два текстовых поля, в одном из них текст и нужно перенести во второе перенести
только, то что я выделил в первом.

Поля создаються так:

Edit1:=CreateWindowEx( WS_EX_ClientEdge,'Edit','', WS_Child or WS_HScroll or WS_VScroll
  or ES_MultiLine or ES_Left or WS_CHILD or WS_VISIBLE,0,45,167,143, WND,0, hInstance, nil );