Ошибка со скобками

[MaLaGuS]

Здравствуйте!
У меня такое задание:
В БД книжного магазина реализовать увеличение количества при поступлении, в случае если цена совпадает.

Если делаю таким образом, то выдает ошибку " ')' expected but ';' found "

procedure TForm1.Button8Click(Sender: TObject);
var i:integer;
begin
Form1.ADOTable1.Open;
Form1.ADOTable5.Open;
Form1.ADOTable1.Edit;
Form1.ADOTable5.Edit;
Form1.ADOTable1.First;
while not Form1.ADOTable1.Eof do begin
if ((Form1.ADOTable5.FieldByName('ID_k nigi').AsInteger=Form1.ADOTable1.Fi eldByName('ID_knigi').AsInteger)
and (Form1.ADOTable5.FieldByName('PurVa l').AsInteger=Form1.ADOTable1.Field ByName('KPr').AsInteger)) then
Form1.ADOTable1.FieldByName('KCnt') .AsInteger:=Form1.ADOTable1.FieldBy Name('KCnt').AsInteger+Form1.ADOTab le5.FieldByName('PCnt').AsInteger
else ((Form1.ADOTable1.Next) and
(if Form1.ADOTable1.Eof=true then begin
i:=Form2.ShowModal;
Form2.Edit11.Text:=Form1.ADOTable5. FieldByName('PCnt').Asstring;
Form2.Edit9.Text:=Form1.ADOTable5.F ieldByName('PurVal').Asstring;end;) );
end;
end;

если же в предпоследней строчке убираю ";",

procedure TForm1.Button8Click(Sender: TObject);
var i:integer;
begin
Form1.ADOTable1.Open;
Form1.ADOTable5.Open;
Form1.ADOTable1.Edit;
Form1.ADOTable5.Edit;
Form1.ADOTable1.First;
while not Form1.ADOTable1.Eof do begin
if ((Form1.ADOTable5.FieldByName('ID_k nigi').AsInteger=Form1.ADOTable1.Fi eldByName('ID_knigi').AsInteger)
and (Form1.ADOTable5.FieldByName('PurVa l').AsInteger=Form1.ADOTable1.Field ByName('KPr').AsInteger)) then
Form1.ADOTable1.FieldByName('KCnt') .AsInteger:=Form1.ADOTable1.FieldBy Name('KCnt').AsInteger+Form1.ADOTab le5.FieldByName('PCnt').AsInteger
else ((Form1.ADOTable1.Next) and
(if Form1.ADOTable1.Eof=true then begin
i:=Form2.ShowModal;
Form2.Edit11.Text:=Form1.ADOTable5. FieldByName('PCnt').Asstring;
Form2.Edit9.Text:=Form1.ADOTable5.F ieldByName('PurVal').Asstring;end)) ;
end;
end;

то выдает ошибку "Operator not applicable to this operand type".

Помогите пожалуйста разобраться

[le7o]

В подобных случаях лучше использовать ADOQuery и запросы, допустим Form1.ADOTable5.FieldByName('ID_k nigi').AsInteger=Form1.ADOTable1.Fi eldByName('ID_knigi').AsInteger, можно заменить на SELECT * FROM TAB1 INNER JOIN TAB2 ON TAB1.ID_k-nigi = TAB2.ID_knigi...

И код компактнее и вероятность запутаться в нем ниже...

[Yurk@]

else ((Form1.ADOTable1.Next) and (if Form1.ADOTable1.Eof=true 
then  begin
i:=Form2.ShowModal;
Form2.Edit11.Text:=Form1.ADOTable5.FieldByName('PCnt').Asstring;
Form2.Edit9.Text:=Form1.ADOTable5.FieldByName('PurVal').Asstring;end)) ;
end;

как-то смущает меня эта часть кода ....
тут явно не хватает IF после ELSE и как-то не в тему закрыты скобки
да и вообще что требовалось сделать данным кодом

else ((Form1.ADOTable1.Next) and (if Form1.ADOTable1.Eof=true 
then

???
а может это я уже туплю в конце недели(