построить if`ы

[shalun43911]

всем привет.
помогите новичку.
есть 2 кобмобокса, и есть код. понимаю как теоретически выстроить последовательность действий но программно осуществить затрудняюсь.
Просто помогите с if`ми.
Действия в теории:
1.Берем из столбца другой таблицы значения и кидаем их в 1 комбобокс
2.Выбираем значение, таблица фильтрируется
3.Значения столбца из полученной таблицы кидаем во 2-ой комбобокс.
4.Снова фильтрируем

procedure TForm1.types2Change(Sender: TObject);
var stroka:string;
begin
      /////////////////////// Фильтр типа
with DBGridEh1.DataSource.DataSet do begin
   Filter:='Тип='+QuotedStr(TDBComboBoxEh(Sender).Text);
   Filtered:=true;
   stroka:='Тип='+QuotedStr(TDBComboBoxEh(Sender).Text);
 end;
 ADOQuery1.Active:=true;   
end;

procedure TForm1.modelsChange(Sender: TObject);
begin
                        ///////////////////////////// фильтр по модели
   with DBGridEh1.DataSource.DataSet do begin
  Filter:='Модель='+QuotedStr(TDBComboBoxEh(Sender).Text);
 Filtered:=true;
end;
 ADOQuery1.Active:=true;
  end;


procedure TForm1.FormCreate(Sender: TObject);
var stroka:string;
begin
ADOQuery1.Active:=False;
                                               ////////// запись в тип
with ADOQuery_combo do begin
  first;
  types.Items.Clear;
  while not eof do begin
  types.Items.Append(fieldByName('type_name').AsString);
  next;
end;
  end;
                             //////////////////// запись моделей
  with ADOQuery_combo do begin
  first;
 models.Items.Clear;
  while not eof do begin
 models.Items.Append(fieldByName('model_name').AsString);
  next;
 end;
end;
end;