obtener numero de linea de un Tmemo

[[ArdiIIa]]

Hola gaz-g7, Bienvenido al ClubDelphi.

Primera recomendación es que leas la Guía de estilo.

En cuanto a tu consulta vamos si esto te sirve.....

Código Delphi [-]
procedure TForm1.Memo1Click(Sender: TObject);
var
  Coordenada: TPoint;
begin
    Coordenada := Memo1.Caretpos;
    Caption := 'Coordenada X=' + IntToStr(Coordenada.x) + ' Coordenada Y=' + IntToStr(Coordenada.Y + 1);
end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
Memo1Click(Sender)
end;

De este modo controlas la posición tanto cuando se pulsa una tecla o cuando se posiciona con el ratón.

Si ademas quieres ofrecer otra información adicional, te recomiendo que eches un vistazo a este hilo que hace tiempo tratamos....

Saludos.