En vista he perdido el dinerito...
Y ahora a lo que hemos venido...
...No he probado el siguiente código... pero quizá te sirva y porfa nos comentas como te fue...
En un Boton o al OnCreate o en el evento que abras tu Tquery (Lo llamare Query1 para el ejemplo) podrías hacer lo siguiente:
Código Delphi
[-]
Query1.Close;
Query1.Open;
Query1.Filtered := False;
Query1.Filtered := True;
Con esas lineas se dispararía el evento OnFilterRecord del TQuery(Query1)
y en el evento FilterRecord deberías tener el siguiente código...
Código Delphi
[-]Accept := (Memo1.Lines.IndexOf(Quer1.FieldByName('codigo').AsString) <> -1);
Nota: Si no te funciona así prueba quitando lo que tengas en la propiedad Filter de el TQuery.