Problema al mostrar un registro en un label

[ecfisa]

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