[s-mail]

Спасибо большое за помощь) работает!!! немного потупил и готово)
вот код для интересующихся!

Код:

procedure TForm1.Button2Click(Sender: TObject);

begin
  case Combobox1.ItemIndex of
 0:if not ADOTable1.Locate('Kod',Edit1.Text,[loCaseInsensitive, loPartialKey])then
    ShowMessage('Запись не найдена');
 1:if not ADOTable1.Locate('printer',Edit1.Text,[loCaseInsensitive, loPartialKey])then
    ShowMessage('Запись не найдена');
 2:if not ADOTable1.Locate('Cartridge',Edit1.Text,[loCaseInsensitive, loPartialKey])then
    ShowMessage('Запись не найдена');
  end;
.
.
.
end;