Hola
Que dificil la pones.
Primero, supongo que el dbgrid lo tienes ligado a la consulta, (adoquery1).
Si tienes el codigo en cod, pues es el que vas a usar.
Código Delphi
[-]
begin
i:=0;
cant:=DBListBox1.Count;
While (i <> cant) do begin
If(DBListBox1.Selected[i]=True)then
cod:=i+1;
i:=i+1;
end;
FormSistema.ADOQuery1.SQL.Text:='Select Cod_G From TContraseñas Where Cod_G = :cod ) ';
FormSistema.ADOQuery1.Parameters.ParamByName('cod').Value := cod;
FormSistema.ADOQuery1.Active:=True;
end;
Me imagino que sera asi.
Recuerda que cod es integer, el campo (Cod_G) tambien lo tiene que ser.
Saludos