Delphi - problema con combobox

Alguien me daria una mano, seria infinitamente agradecido
Anda todo solamente no me actualiza el combobox, esto lo ejecuto en el evento
dbgridcell click, y solamente muestra el correspondiente al primer registro, actualiza el combo solo para el primer registro...un saludo

var cons1, cons2:string;

begin
adoquery2.Close;
cons1:='select colaboradores.usuario, colaboradores.password, colaboradores.nombre, colaboradores.apellido, colaboradores.direccion, colaboradores.telefono, colaboradores.email, colaboradores.web, roles.rol, colaboradores.id, colaboradores.fecha ';
cons2:='from colaboradores, roles where colaboradores.rol=roles.id and colaboradores.id= :p';
adoquery2.SQL.Text:=cons1+cons2;
adoquery2.Parameters.ParamByName('p').Value:=adoquery1.Fields[10].AsString;
adoquery2.Open;
edit1.Text:=adoquery2.Fields[0].AsString;
edit2.Text:=adoquery2.Fields[1].AsString;
edit3.Text:=adoquery2.Fields[2].AsString;
edit4.Text:=adoquery2.Fields[3].AsString;
edit5.Text:=adoquery2.Fields[4].AsString;
edit6.Text:=adoquery2.Fields[5].AsString;
edit7.Text:=adoquery2.Fields[6].AsString;
edit8.Text:=adoquery2.Fields[7].AsString;
edit9.Text:=edit2.Text ;

//averiguo el rol
//9 es el id
adoquery4.Close;
adoquery4.SQL.Text:='select rol,id from roles where id=:p';
adoquery4.Parameters.ParamByName('p').Value:=adoquery2.Fields[9].AsString;
adoquery4.open;

combobox1.Text:=adoquery4.Fields[0].AsString;

edit10.Text:=adoquery2.fields[10].AsString;

end;

combobox1.Text:=dbgrid1.Fields[8].AsString;

Mis sentidas disculpas el post anterior fue la manera en que afortunadamente lo resolvi....

Gracias a todos por su tiempo...