[ecfisa]

Empezado por sac

Ops perdón ecfisa pero no es lo que esperaba. Aplicando tu respuesta en realidad lo que hace es una copia del texto seleccionado en la primera línea.

Lo explico con un ejemplo:
Tengo un archivo de texto con unas 30 lineas.
Lo que deseo encontrar se ubica en la linea 18.
Supongamos que el Memo tiene un tamaño donde caben 10 líneas.

Lo que yo necesitaba era que al hallar la selección, la posicion del cursor, lo seleccionado, aparezca en la linea 1 que se ve en el memo y sea lo primero que se lee pero sin cortar, sin copiar etc.

Hola sac.

No estoy seguro de entenderte, a ver si lo que buscas es esto...

Código Delphi [-]
  if Pos(Cita.Text, Memo1.Text) <> 0 then
    Memo1.Text:= Cita.Text + Memo1.Text;

Saludos.