Smart søgning

Jeg mangler en rigtig smart søgning til Delphi.
Er der en, der kan undvære en : )
Jeg forestiller mig et DBEdit felt og en knap med "søg" og
så søger den på alle de data der er i felt "dato" fx i databasen.
Kan jeg lave en SQL sætning fx uden at skulle lave det hele om
med en Quiry på ?
Man skal "bare?" kunne skrive det man vil i DBEdit feltet og
så finder den det.
Jeg sætter hele 10 poient på højkant da jeg har set en del
søgninger men ingen at dem er rigitg gode.
Enten kommer der en boks på man skal taste noget ind i
eller også er der noget Læskun/ på en DBedit og alt sådan noget
pjat.
Nææ en god en der bare ? finder det dan skal.
Måske også med en error i hvis fejl

tarsankode

Kode 

Procedure StartSog(Tekst: string; Source, Target : TDataSet);
// der søges efter Tekst
var
    SogeFelter : array[0..4.] of string;
    i : integer;
begin
    SogeFelter:=['Navn','Efternavn'.. osv.

    Opret først samme felter i Target som findes i Source...

    Create Target DataSet...

    for i:=0 to 4 do
    begin
        if Source.Locate(SogeFelter,Tekst, ....
        begin
            kør evt. videre med Next her for at checke for flere ens
navne...
            kopiere resultater over i Target
        end;
    end;
end;

begin
    StartSog('Hansen',cdsKartotek, et nyt DataSet);
end;