[yusnerqui]

Código Delphi [-]
procedure TFormCaptura.BitBtnAgregarClick(Sender: TObject);
begin
   AQTemp.SQL.Text := 'Select Titular From Personas Where id_personas = '+DBEdit6.Text;
   AQTemp.Open;
   ComboBox1.Items.add(AQTemp.Fields[0].AsString);
   memo1.lines.Add(AQTemp.Fields[0].AsString);
end;

Saludos.