Hola Goyo
No es lo correcto, ve la diferencia:
Lo que as puesto:
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.Text := AQTemp.Fields[2].AsString;
end;
Aqui estas haciendo alucion al dato Cargo, que esta en la tercera posicion osea 2
Tienes que hacerlo asi:
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.Text := AQTemp.Fields[1].AsString;
end;
Esta es la linea clave:
Código Delphi
[-] ComboBox1.Text := AQTemp.Fields[1].AsString;
Osea para que lo entiendas:
(0)= id_personas
(1)= Titular
(2)= Cargo
asi trabaja esto, de todos modos no entiendo por que te da ese error, intenta haciendolo asi.
Otro problema puede ser que no entienda la variable, si sigue el problema lo atacamos por otro lado, pero este no nos vence.
Saludos