Problem mit checkboxen

[Jack23]

Meinst du das so?

Delphi-Quellcode:

var Boxes: array[0..3] of TCheckbox; //Array definieren
    sText: string;
    i: integer;
begin
  //Array belegen
  Boxes[0] := CheckBox1;
  Boxes[1] := CheckBox2;
  Boxes[2] := CheckBox3;
  Boxes[3] := CheckBox4;
  //String initialisieren
  sText := '';
  //Anhand des Zustandes String zusammenbauen mit Leerzeichen als Trenner
  for i := Low(Boxes) to High(Boxes) do
    if Boxes[i].Checked then
      sText := sText + Boxes[i].Caption + #32;
  //letztes Leerzeichen löschen
  if Length(sText) > 0 then
    Delete(sText,Length(sText),1);
  //nur zum Testen, ggf. in SQL-Statement einfügen
  with Query do
  begin
    Close;
    SQL.Text := 'SELECT * FROM tabellea WHERE text=:text';
    ParamByName('text').AsString := sText;
    Open;
  end;
  end;

Dann sagt er aber Undefinierter Bezeichner: 'ParamByName'