Select a line by clicking over them

Procedure TForm1.Memo1Click ( Sender : TObject ) ;

Var

   Linea       : integer ;

Begin

   With ( Sender As Tmemo ) Do

   Begin

      Linea := Perform ( EM_LINEFROMCHAR , SelStart , 0 ) ;

      SelStart := Perform ( EM_LINEINDEX , Linea , 0 ) ;

      SelLength := Length ( Lines[ Linea ] ) ;

   End ;

End ;