Clipper/FiveWin - Busqueda en base de datos

Saludos. Quisiera una rutina en donde solicite un texto ( n de longitud)
y a medida que voy ingresando los caracteres de lo que quiero buscar vaya apareciendo en un dbedit todos los registros que cumplan la solicitud. Si alguien tiene la rutina completa por favor, le adradezco. Gracias.

Hola, te puedo enviar algo que alguna vez utilice en un TBrowse, pero por ahi lo podes implementar :). Esto lo llamaba en el evento OTHERWISE. Saludos.

Marcelo

Function busqueda()

SET SOFTSEEK ON
SET ORDER TO 2

DO WHILE .T.

IF NKEY=8
NN:=LEN(MM)
MM:=SUBS(MM,1,NN-1)
ELSE
MM:=MM+CHR(NKEY)
ENDIF

C:=LEN(MM)
@OFF,24 SAY SPACE(20) COLOR("W+/BG")
@OFF,24 SAY UPPER(MM) PICTURE "@!" COLOR("W+/BG")

IF C = 20
TONE (300)
TONE (300)
TONE (100)
NN:=LEN(MM)
MM:=SUBS(MM,1,NN-1)
ENDIF

DBSEEK(ALLTRIM(UPPER(MM)))

ESTA:=RECNO()
OBJETO:REFRESHALL()
GO ESTA
DO WHILE .NOT. OBJETO:STABILIZE()
ENDDO

RETURN