pasar de un dbgrid a un listbox

[Goyo]

mira te voy a explicar de otra manera: pongo el codigo tal como me lo indicaste:

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

me marca el mismo error:
Invalid use of keyword.
Token:=
Line Number: 1'

No entiendo porque el error, si lo hago tal como me lo indicas...
otra cosa, el AQTemp en su propiedad DataSource le asigno DM.DsPersonas
en el DBGrid solo muestro el campo Titular (de la tabla Personas), este es de tipo String (Char en MySQL), en el componente AQTemp es lo unico que le hago poner el DataSource=DM.DsPersonas...

gracias Caral por tu ayuda... y seguire intentandolo, de antemano que tengas un buen día...
saludos y felices fiestas