Ошибка программе

[ch_dark]

ошибка происходит по нажатию кнопки. появляется окно с сообщением
Ошибка Project project1.exe raiced exception class EDatabase wiht message 'Table1: Dataset not in edit or insert mode'. Process stopped. Use Step or Run to continue помогите (

1.procedure TForm3.Button2Click(Sender: TObject);
2.var x,y:integer;
3.begin
4.Form2.Table1.First;
5.while not Form2.Table1.Eof do
6.begin
7.Form2.Table1.edit;
8.if Form2.Table1.FieldByName('Name').text=Form3.Table.FieldByName'Name').text
9.then begin
10.Form2.Table1.edit;
11.x:=Form2.Table1.FieldByName('Kol').AsInteger;
12.y:=Form3.Table1.FieldByName('Kol').AsInteger;
13.Form2.Table1.FieldByName('Kol').AsString:=IntToStr(x-y) ;
14.Form2.Table1.Next; end;
15.Form2.table1.Post;end;
16.ShowMessage('Данные изменяны!');
17.end;

[Stilet]

1.procedure TForm3.Button2Click(Sender: TObject);
var x,y:integer;
begin
Form2.Table1.First;
while not Form2.Table1.Eof do
begin
if Form2.Table1.FieldByName('Name').text=Form3.Table.FieldByName'Name').text
then begin
 x:=Form2.Table1.FieldByName('Kol').AsInteger;
 y:=Form3.Table1.FieldByName('Kol').AsInteger;
 Form2.Table1.edit;
 Form2.Table1.FieldByName('Kol').AsString:=IntToStr(x-y) ;
 Form2.table1.Post; 
end;
Form2.Table1.Next;
end;
ShowMessage('Данные изменяны!');
end;

Только ИМХО эта пилюля не поможет. Код бессмысленен.

[ch_dark]

Только ИМХО эта пилюля не поможет. Код бессмысленен.[/QUOTE]

Да ошибка ушла, спасибо, но ничего не помогло работает не правильно. Подскажите как написать код со смыслом

[Аватар]

Если бы еще знать, что сделать нужно Или сделай то не знаю что?

[ch_dark]

Сообщение от Аватар

Если бы еще знать, что сделать нужно Или сделай то не знаю что?

Существует 2 таблицы(таблицы наход на разных формах), в первой хранятся данные о количестве . Во второй вводишь сам изменение, при совпадении наименований, количество должно вычитываться по нажатию кнопки из одной таблицы в др. например первая таблица имеет 2 столбцa name и Kol. вторая тоже. во вторую ввожу наименование и кол- во по нажатию кнопки выполняется условие если имена совпадают то кол-во вычитается из первой таблицы и сохраняется.