Схему действий я понял, а как это прописать в модуле честно не знаю?
procedure TForm16.BitBtn3Click(Sender: TObject);
begin


?
end;
Len, И что это написано?
Ты в этом коде разбираешься? я, нет.
написал бы
procedure ФормаТовара.BitBtnВыборТовараClick(Sender: TObject);
а твое мнемонику я не понимаю, вернее не хочу понимать

я конечно притворяюсь
смотри сюда
procedure ФормаТовара.BitBtnВыборТовараClick(Sender: TObject; var Result:TResult);
begin
......
Result := (Select * from Товар where IDТовар = &ТекущееЗначение)
end
ЗЫ Заметь, я не Lenюсь

переключаться с языка на язык и стараюсь описывать действия понятным мне и другому человеку. Я надеясь ты меня понимаешь?