procedureTForm1.Button1Click(Sender:TObject);vari:Integer;begini:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1;ShowMessage(IntToStr(i));...