[sanxpue]

Ahi te va otra forma de hacerlo...

usaremos un TRichEdit en lugar del memo

Procedure TForm1....
Var
  Encontrado : LongInt;
  Desde, Hasta : Integer;
  Cad : String;
Begin
  Cad := 'Cadena a Buscar';
  RichEdit1.Lines.Assign(Tabla.FielByName('campoMemo'));
  //Ahora la busqueda
	
  If RichEdit1.SelLength <> 0 then
    Desde := RE1.SelStart + RE1.SelLength
  Else
    Desde := 0;
  Hasta := Length(RichEdit1.Text) - Desde;
  Encontrado := RichEdit1.FindText(Cad, Desde, Hasta, [stMatchCase]);
  If Encontrado <> -1 then
     ShowMessage('La palabra se encontro en : '+IntToStr(Encontrado))
  Else
     ShowMessage('No se encontro la palabra');
End;

Espero que te sirva
como siempre a tus ordenes y siempre con buena cara