[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
...
begin
  if RadioGroup1.ItemIndex <> -1 then
  begin
    qProductos.Close;
    qProductos.SQL.Text := 'SELECT * FROM PRODUCTO WHERE ESTADO = :STATE';
    qProductos.ParamByName('STATE').Value := RadioGroup1.ItemIndex;
    qProductos.Open;
  end;
end;

Saludos