Leer Memos recorriendo tabla

[ramonibk]

Buenas a todos.

Estoy intentando recorrer una base de datos (Una Tabla) y mientras la recorro intento revisar un campo Memo buscando Frases especificas.

lo he intentado de la siguiente manera

Código Delphi [-]
Var
N, I : Integer;
S : String;

Begin
 I := 0;
 S := qryBuscarCampoMemo.AsString;
 For N := 0 To qryBuscar.qryBuscar.RecordCount Do
 Begin
  if AnsiContainsText( S, 'Frase a Buscar' )= True Then
     Begin
       I := I+1;
       Label1.Caption:=IntToStr(I); // Solo para poder ver el contador
     End;
   dsBuscar.DataSet.Next; 
 End;

End;

Y bueno no se lo que pasa pero no consigo que esto ande.