//drony@mynet.com
//icq:266148308
procedure TForm1.Memo1Click(Sender: TObject);
var
satir:integer;
begin
with (Sender as Tmemo) do
begin
satir:= Perform(EM_LINEFROMCHAR,SelStart,0);
SelStart := Perform(EM_LINEINDEX, satir, 0);
SelLength:=Length(Lines[satir]);
label1.caption:=inttostr(memo1.SelLength);
end;
end;