[trabuc]

Código Delphi [-]
 case GB.ItemIndex of
   1: begin
       Foct3.Checked:=True;
 FoCt.checked:=false;
 F142.Checked:=False;
       FTabla.Query1.SQL.Strings[12]:=Calcular.Ster;
       end;
   0: begin
       FOct.Checked:=True;
 FOct3.Checked:=false;
 F142.Checked:=False;
       FTabla.Query1.SQL.Strings[12]:=Calcular.Soct;
       end;

Y si que estoy trabajando en un query, pero es que en el codigo sql no veo ningun error, gracias de todos modos