[Kores]

задача.есть таблица

Код:

spol//датасурс для этой таблицы

...в ней столбцы:
назв/ тип/ значения
ID_pol - счетчик| 1, 2.
pol - текст | мужской, женский
spol - текст | муж, жен.
прикрепляю к этой таблице dblookupcombobox. делаю свойства такие, как надо...тоесть

Код:

object Pol: TDBLookupComboBox
    Left = 288
    Top = 48
    Width = 145
    Height = 21
    DataField = 'Pol'
    DataSource = DataMod.Scard //сюда должны добавляться значения...
    KeyField = 'ID_pol'
    ListField = 'Pol'
    ListSource = DataMod.spol // отсюда берется список значений.
    TabOrder = 6
  end

а в работе он не активен и не показывает список значений



и попутно сразу вопрос...вот кусок кода

Код:

  function Tdatamod.TestNoCard(var No: String): Boolean;
var
  CountZero: Integer;
begin
  CountZero := 8 - Length(No); // к-во незначащих нулей в номере карты. В реальной БД
                            // необходимо использовать не константу, а размер поля
  No := Copy(ZeroStr, 1, CountZero) + No; //добавляем незначащие нули до 8 знаков
  with qSearch do //делаем запрос с номером
  begin
    Parameters.Items[0].Value := No;
    Open;
    Result := RecordCount = 0; //если нет записей с тким номером, значит тест пройден
    if not Result then //если результат негативный сообщаем об этом
     showmessage('такая карта уже существует');
    Close;   //закрываем запрос
  end;
end;

ругается на showmessage - неизвестный идентификатор....
везде это катит...а тут...