[[eduarcol]]

No habia visto bien lo que habias escrito,

Empezado por Stevenmn

lo que no he podido hacer la busqueda siguiente intento pornerle +1 al llamarla, pero nada.

pues para realizar la busqueda siguiente no veo como adaptar lo qeu tienes a lo que necesitas, asi que te propongo dos bloques de codigo nuevos

Para buscar

Código Delphi [-]
if InputQuery('Buscar...', 'Escriba la palabra a buscar', cPalabra) then
   begin
      nPos := -1;
      nPos := Pos(cPalabra, Memo1.Text) - 1;
      if nPos =  -1 then
      begin
         ShowMessage('Palabra no encontrada');
         exit;
      end;
      cSinBuscar := Copy(Memo1.Text, nPos + 1 + Length(cPalabra), Length(Memo1.Text));
      nLength := Length(Copy(Memo1.Text, 1, nPos)) + Length(cPalabra);
      Memo1.SetFocus;
      Memo1.SelStart := nPos;
      Memo1.SelLength := Length(cPalabra);
   end;

Para buscar el siguiente

Código Delphi [-]
nPos := -1;
   nPos := Pos(cPalabra, cSinBuscar) - 1;
   if nPos =  -1 then
   begin
      ShowMessage('Palabra no encontrada');
      exit;
   end;
   cSinBuscar := Copy(cSinBuscar, nPos + 1 + Length(cPalabra), Length(cSinBuscar));
   Memo1.SetFocus;
   Memo1.SelStart := nPos + nLength;
   Memo1.SelLength := Length(cPalabra);
   nLength := nLength + Length(Copy(cSinBuscar, 1, nPos)) + Length(cPalabra);

Cabe destacar que debes tener esta variables en las globales

Código Delphi [-]
cPalabra, cSinBuscar: String;
   nPos, nLength: Integer;

cualquier duda avisas