In Form mehrere Edits zum suchen verwenden

[Albi]

Ich habe folgendes Problem mit dem einfach nicht weiter komme.
Ich habe ein Form mit meheren Editfeldern, ich will nun das wenn in einem der Felder einen Namen Einträg, nach diesem in der DB gesucht wird.

Ich habe es mit einer Case .. of Einweisung versucht, was ja funktioniert, wenn man "SortDs(0)" in die Abfrage hinschreibt aber das bringt mich ja nicht weiter. Ich müßte diesen Wert ja irgendwie übergeben bekommen.

Zum Bsp. ich klicke auf das Edit1 und der dann sucht er nach er Nummer oder ich klicke in Edit2 und er sucht nach dem Namen.

Ich hoffe ihr habt verstanden, was ich hinaus will.

Delphi-Quellcode:

begin
 Saved:= True;
 Form1.Query1.Close;
 Form1.Query1.SQL.Clear;
 If DBKuNr.GetTextLen = 0 Then
  Form1.Query1.SQL.Add('SELECT * FROM "'+Pfad+'"')
 else
 //Form1.Query1.SQL.Add('Select * FROM "'+Pfad+'" WHERE DB_KuNr ='+DBKuNr.Text);
 SortDS(Sort)); Hier sollte die Anweisung übergeben
 Form1.Query1.Active:= true;
 DBAnrede.Text:= Form1.Query1.FieldByName('DB_Anrede').AsString;
 DBTitel.Text:= Form1.Query1.FieldByName('DB_Titel').AsString;
 DBVorName.Text:= Form1.Query1.FieldByName('DB_VorName').AsString;

Ich dachte mir, ich übergebe den Wert, wenn ich auf das entsprechende Feld klicke aber da kommt es zu einem Fehler wegen Bytew und String.

Hier noch die Case .. of

Delphi-Quellcode:

begin
  Case m of
     0: Begin
        Sort:= 'Select * FROM "'+Pfad+'" WHERE DB_KuNr ='+DBKuNr.Text+'';
        end;
     1: Begin
        Form1.Query1.SQL.Add('Select * FROM "'+Pfad+'" WHERE DB_Vorname Like ''%'+DBVorname.Text+'%''');
        end;
     end;
end;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]