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

procedure TForm1.SelButton1Click(Sender: TObject);
begin
 with Query1 do
begin
  SQL.Text := 'SELECT * FROM raddr WHERE ' +
                'upper(Nachname) Like'                        + #39#37
+
UpperCase(edit3.text) + #37#39 + ' OR ' +
                'upper(Vorname) Like'                          + #39#37
+
UpperCase(edit3.text) + #37#39 + ' OR ' +
                'upper(FAOrga) Like'  + #39#37 +
UpperCase(edit3.text) + #37#39 + ' OR ' +
                'upper(Bemerkung) Like'                       + #39#37
+
UpperCase(edit3.text) + #37#39;
  Open;
  Next;
 Form_Gefunden.ShowModal;
 edit3.clear;
  end;
  end;                    

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

function cbStrToSQLStr(AString: String): String;
begin
  if AString = '' then
    result := 'NULL'
  else
    result := '''' +  AString + '''';
end;