[roman]

Prueba con:

var
  Linea: Integer;

begin
  Linea := SendMessage(
    Memo1.Handle,
    EM_LINEFROMCHAR,
    Memo1.SelStart, 0
  );
end;

// Saludos