Hola
Veamos asi:
Código Delphi
[-]
FormGrupos.ADOQuery1.SQL.Text:= 'Select Cod_G From TGrupos Where Cod_G = :Cod';
FormGrupos.ADOQuery1.Parameters[0].Value:= Edit2.Text;
FormGrupos.ADOQuery1.Active:=true;
o asi:
Código Delphi
[-]
FormGrupos.ADOQuery1.SQL.Text:= 'Select Cod_G From TGrupos Where Cod_G = :Cod';
FormGrupos.ADOQuery1.Parameters[0].Value:=QuotedStr(Edit2.Text);
FormGrupos.ADOQuery1.Active:=true;
Saludos