Puedes usar Pos
function Pos(Substr: string; S: string): Integer;
Esta función devuelve la posición de la primera ocurrencia de Substr dentro de S.
También puedes usar StrPos
function StrPos(const Substr, S: PChar): PChar;
Esta función devuelve un puntero a la primera ocurrencia de Substr de S.
Puedes pasar la propiedad Text de TMemo como el parámetro S en estas funciones
Ejemplo:Agrega un TMemo a una forma y adicionale texto, agregale a la forma un TEdit y un TButton y en el OnClick evento del TButton poner
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.SelStart := Pos(Edit1.Text, Memo1.Text)-1;
Memo1.SelLength := Length(Edit1.Text);
Memo1.SetFocus;
end;
Ejecuta la aplicación y escribe algun fragmento de texto en el TEdit y presiona el botón, si encuentra el texto en el TMemo, lo seleccionará.
Espero que te sirva
