procedure TForm1.FormCreate(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Text := 'select ding from table1 where Field1' + QuotedStr(Edit1.Text);
Open;
if not IsEmpty then
if FieldByName('ding').AsBoolean then
ShowMessage('TRUE')
else
ShowMessage('False')
end;
end;