pasar de un dbgrid a un listbox

[[Caral]]

Hola
Bueno intentemos un truco:
El dbgrid, esta conectado a una tabla o query, entonces, contiene los datos.
Pon un DBEdit en el form y asignale en datasource del dbgrid.
Asignale al dbedit el campo id_personas .
Bueno ya estara biendo ese dbedit, el campo id_personas segun se cambia o recorre el dbgrid.
Entonces, pon este codigo en el boton:
Supongamos que el DBEdit se llama DBEDit1:

Código Delphi [-]
procedure TFormCaptura.BitBtnAgregarClick(Sender: TObject);
// var
// personas: string;
begin
   AQTemp.SQL.Text := 'Select Titular From Personas Where id_personas = '+DBEdit1.Text;
   AQTemp.Open;
   ComboBox1.Items.Text := AQTemp.Fields[0].AsString;
end

Analizalo bien, hice varios cambios, si quieres estar seguro copialo y pegalo.
Deberia funcionar, ahora en vez de buscar una variable, buscara un campo igual al dbedit1.
La razon por la que no camina es por que hay tres campos en la tabla y estas queriendo ver solo uno, diciendo al sql, que te de todos, por hai va la cosa.
saludos