>>Something like
>>

>>lnStart = Thisform.Edit1.SelStart
>>lcCrLf = CHR(13) + CHR(10)
>>
>>lnOccurence = OCCURS(lcCrLf, LEFT(Thisform.Edit1.Text, lnStart))
>>
>>lcCommand = STREXTRACT(lcCrLf + Thisform.Edit1.Text, lcCrLf ,lcCrLf, lnOccurence + 1,2) 
>>

>>
>only you Sergey.. only you
>
>cool.. so cool... but a little something leaking... the control of [;] character per line to deal with long commands
>
>now... I'm trying to deal with that

You can also try ALINES(). It may be even easier and faster.

lnStart = Thisform.Edit1.SelStart
lcCrLf = CHR(13) + CHR(10)

lnOccurence = OCCURS(lcCrLf, LEFT(Thisform.Edit1.Text, lnStart))

ALINES(laLines, Thisform.Edit1.Text)
lcCommand = laLines[lnOccurence + 1]