Проверка при добавлении записи

[Tanya2008]

Добрый день! Возникла небольшая проблема У меня есть две таблица:1.Категория(код категории, наименование категории) и 2.Класс(код категории, код класса, наименование класса). они связаны по коду категории. Мне нужно при добавлении записи в таблицу Класс проверять есть ли соответствующуя связанная запись в таблице Категория (т.е. есть ли такой же код категории в таблице Категория). Задача вроде бы не сложная, ну что-то не получается реализовать.
Начало процедуры предполагаю такое (в k1 содержиться код категории, который я собираюсь ввести в таблицу Класс, AdoTable1-табл. Категория, нулевое поле - код категории). Дальше не знаю. Подскажите пожайлуста.
while not DM.ADOTable1.Eof
do begin
if (k1<>DM.ADOTable1.Fields[0].Value) then begin

[S@fer]

можно сделать так

DM.ADOTable1.First;
while not DM.ADOTable1.Eof do
begin
  if (k1<>DM.ADOTable1.Fields[0].Value) then
  a:=0 else
  begin
    a:=1;
    exit;
  end;
  DM.AdoTable1.Next
end;

Потом делаете проверку на а

if a=1 then
ShowMessage('Совпадение есть') else
ShowMessage('Совпадений нет')

также проверку можно сделать с помощью ADOQuery

ADOQuery.Active:=False;
ADOQuery.SQL.Clear;
ADOQuery.SQL.ADD('SELECT * FROM [Tablica] WHERE [Kod_kategorii]='+k1+'');
ADOQuery.Active:=True;

if ADOQuery.RecordCount=0 then ShowMessage('Совпадений нет') else ShowMessage('Совпадения есть')

Немного дополнил код с Query

[Tanya2008]

Спасибо большое! Сейчас попробую

[Tanya2008]

Все, сделала через запрос, спасибо