[[nlsgarcia]]

rufo,

Empezado por ecfisa

...Siempre que sea posible usa parámetros (Evita la inyección SQL)...

Empezado por rufo

...ya me quedo mi código tome el que me dijo el amigo aposi...

Te sugiero considerar las recomendaciones dadas en el Msg #4, combinado todo lo anterior con algunas variaciones:

Código Delphi [-]
procedure TPrincipal2.ComboBox7Change(Sender: TObject);
begin
   with dm1.Q_CFacturas do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Select ID_Cuenta, NumeroCta From CFacturas');
      SQL.Add('Where Cuenta = :P1');
      ParamByName('P1').AsString := ComboBox7.Items[ComboBox7.ItemIndex];
      Open;
      if Recordcount <> 0 then
      begin
         V_idcuenta := FieldByname('ID_Cuenta').AsInteger
         Label114.Caption := FieldByname('NumeroCta').AsString;
      end;
   end;
end;

Espero sea útil

Nelson.