DB связь и работа со связной таблицей из Delphi

[Yoja]

Доброй ночи.

Подскажите как правильно работать с DB таблицами из Delphi.

Имеются 2е таблицы
таблица 1 - kategory.DB
поля:
ID
KAT

примет таблицы 1:
ID KAT
1 Авто
2 Недвижимость
3 Банк



таблица 2 - ras.DB
ID
DATA_Z
COMENT
IDKAT

пример таблицы 2:
ID DATA_Z COMENT IDKAT
1 12.07.10 квитанция 3
2 12.05.09 квартира 2
3 01.04.10 BMW 1
4 06.06.06 AUDI 1

Таблицы связаны по полю IDKAT



На форме есть DBLookupComboBox1 в котором отражается поле таблицы 1 (KAT)
Как сделать, чтобы по кнопке сохранить данные записывались автоматически в таблицу ras.DB как надо (3, 2, 1,1 и т.д.), а не с помощью кода, типа этого:

...................
 if DBLookupComboBox1.Text = 'Авто'
  then
 Table1.FieldValues['IDKAT']:=1;

 if DBLookupComboBox1.Text = 'Недвижимость'
  then
 Table1.FieldValues['IDKAT']:=2;

 if DBLookupComboBox1.Text = 'Банк'
  then
 Table1.FieldValues['IDKAT']:=3;
...................

[Korben5E]

DBLookupComboBox1 связан с таблицей.. из нее и берите запись.

Table1.FieldValues['IDKAT']:=TableKat.FieldValues['ID'];

[Yoja]

Спасибо, как получится обязательно отпишусь