Ahi te va otra forma de hacerlo...
usaremos un TRichEdit en lugar del memo
Código:
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