1:
2:

if Table1.Locate ('Hersteller;Modell;Modell (Typ);Baujahr',VarArrayOf([Edit1.text,Edit2.text,Edit3.text,Edit4.text]), [loCaseInsensitive, loPartialKey]) then 
ShowMessage('Datensatz gefunden.');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TKundenformularfenster.FindDialogFind(Sender: TObject);
begin
  with table1 do begin
    if sucheindex = 1 then begin
     IndexName := 'Kundennummer';
      SetKey;
      fieldbyname('Kundennummer').AsString := finddialog.FindText;
      gotonearest;
    end;
  FindDialog.CloseDialog;
end;                    

1:
2:
3:
4:
5:
6:
7:

With Table 1 do begin
  if Locate('Hersteller',Edit1.Text,[loCaseInsensitive, loPartialKey]) then begin
   Filter := 'Hersteller = '+FieldByname('Hersteller'.asString);
   Filtered := true
     if Locate('Modell',Edit2.Text,[loCaseInsensitive, loPartialKey]) then 
       Filter := Filter + ' AND Modell = '+ FieldByname('Modell'.asString);
...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

// Ein Tabelle vollständig anzeigen:
SELECT *
FROM Tabelle

// Alle Datensätze anzeigen bei denen der Nachmane Meier ist:
SELECT *
FROM Tabelle
WHERE Nachname='Meier'

// Alle Dantensätze anzeigen bei denen der Nachname nicht Meier ist
SELECT *
FROM Tabelle
WHERE NOT (Nachname='Meier)

// Alle Meiers und Müllers ausgeben
SELECT *
FROM Tabelle
WHERE (Nachname='Meier') OR (Nachname='Müller')

// Alle Datensätze Anzeigen Bei denen der Vormame Heinz und der Nachname Meier ist:
SELECT *
FROM Tabelle
WHERE (Vorname='Heinz')AND (Nachname='Meier')

// Alle Datensätze raussuchen bei denen der Nachmane mit M beginnt:
SELECT *
FROM Tabelle
WHERE Nachname LIKE 'M%'

// Alle Meiers raussuchen dabei groß und kleinschreibung ignorieren:
SELECT *
FROM Tabelle 
WHERE UPPER(Nachname)='MEIER'

// Alle Datensätze anzeigen und nach Nachnamen und Vornamen Sortieren:
SELECT *
FROM Tabelle
ORDER BY Nachname, Vorname                    

1:

ActKlausel := '(' + ComboBox1.Text + '=''' + Edit1.Text + ''')';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.butFilternClick(Sender: TObject);
  VAR
    ActKlausel : STRING;
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.Add('SELECT *');
  Query1.sql.Add('FROM MeineTabelle');
  IF (Combobox1.Text<>'') AND (Edit1.Text<>'') THEN BEGIN
    ActKlausel := '(' + ComboBox1.Text + '=''' + Edit1.Text + ''')';
    IF WhereStr='' THEN // Wenn noch kein Filter gesetzt ist
      WhereStr := 'WHERE '
    ELSE // Aktuelle klausel mur mit bestehender verbunden werden
      WhereStr := WhereStr + ' AND ';
    WhereStr := WhereStr + ActKlausel
  END; // Filterregel eingegeben
  Query1.sql.Add(WhereStr);
  Query1.open;
end;