Var Ligne:Integer; begin Ligne:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0); Label1.Caption:=IntToStr(Ligne+1); end;