Hola bulc.
La composición de cadenas SQL al modo de,
Código Delphi
[-]sql.Add('where cuenta = '+#39+combobox7.text+#39);
ademas de ser permeable a la inyección SQL es de difícil lectura y estéticamente horrible. Siempre que sea posíble usa parámetros.
Código Delphi
[-]
procedure Tprincipal2.ComboBox7Exit(Sender: TObject);
var
cb: TComboBox;
begin
cb := TComboBox(Sender);
if cb.ItemIndex <> - 1 then
with dm1.Q_cfacturas do
begin
Close;
SQL.Clear;
SQL.Add('SELECT ID_CUENTA FROM CFACTURAS');
SQL.Add('WHERE CUENTA = :CTA');
ParamByName('CTA').AsString := cb.Items[cb.ItemIndex];
Open;
if not IsEmpty then
label114.Caption := FieldByName('CTA').AsString;
Close;
end;
end;
Si con este código no te muestra ningún valor en la propiedad Caption del Label, puedo asegurarte que: La consulta no arrojó ningún resultado, o bién el campo ID_CUENTA es
NULL (en tu código la propiedad
Text del combo también podría no haber tenido el valor deseado).
Saludos