Выборка

procedure TForm1.btCatAddClick(Sender: TObject);
 var
    KOL,CENA,GOD,PROB: integer;
 begin
  try
   KOL:=StrToInt(CatNum.Text);
  except
   CatNum.SelectAll;
   CatNum.SetFocus;
   ShowMessage('Количество должно быть числом');
   exit;
  end;
  try
   CENA:=StrToInt(CatPrice.Text);
  except
   CatPrice.SelectAll;
   CatPrice.SetFocus;
   ShowMessage('Цена должна быть числом');
   exit;
  end;
  try
   GOD:=StrToInt(CatYear.Text);
  except
   CatYear.SelectAll;
   CatYear.SetFocus;
   ShowMessage('Год должен быть числом');
   exit;
  end;
  try
   PROB:=StrToInt(CatProbeg.Text);
  except
   CatProbeg.SelectAll;
   CatProbeg.SetFocus;
   ShowMessage('Пробег должен быть числом');
   exit;
  end;
  if Trim(CatKuzov.Text)='' then
   begin
    CatKuzov.SelectAll;
    CatKuzov.SetFocus;
    ShowMessage('Выберите кузов');
    exit;
   end;
  if Trim(CatColor.Text)='' then
   begin
    CatColor.SelectAll;
    CatColor.SetFocus;
    ShowMessage('Выберите цвет');
    exit;
   end;
  if Trim(CatGear.Text)='' then
   begin
    CatGear.SelectAll;
    CatGear.SetFocus;
    ShowMessage('Выберите КПП');
    exit;
   end;
  if Trim(CatReg.Text)='' then
   begin
    CatReg.SelectAll;
    CatReg.SetFocus;
    ShowMessage('Выберите регион');
    exit;
   end;
  if (KOL<0) or (CENA<0) or (GOD<0) or (PROB<0) then
   begin
    ShowMessage('Неверный формат чисел, все числа должны быть положительны');
    exit;
   end;
  // Добавляем запись в базу
  tbCatalog.Insert;
  tbCatalog['ID_AUTO']:=CatName.KeyValue;
  tbCatalog['KOL_Auto']:=KOL;
  tbCatalog['Cena']:=CENA;
  tbCatalog['God_vipusk']:=GOD;
  tbCatalog['Probeg']:=PROB;
  tbCatalog['Kuzov']:=CatKuzov.Text;
  tbCatalog['COLOR']:=CatColor.Text;
  tbCatalog['KPP']:=CatGear.Text;
  tbCatalog['REGION']:=CatReg.text;
  tbCatalog.Post;
 end;