Мне несложно ответить, но ваш вопрос подразумевает несколько слабое знание основ работы с БД. Если я так вам отвечу:
Код:
AdoQuery1.SQL.Text := 'insert into Накладная (Товар, Цена)
Values (Номенклатура.Товар, Номенклатура.Цена * :Количество)
from Номенклатура where Номенклатура.КодТовара = :КодТовара';
AdoQuery1.Parameters.ParamValues['Количество'] ':= StrToInt(Edit1.Text);
AdoQuery1.Parameters.ParamValues['КодТовара'] ':= AdoQuery2.FieldValues['КодТовара'];
AdoQuery1.ExecSQL;
Вы поймете?