D7+Paradox - как сделать редактирование БД

[nursak]

На форме отображаются 5 edit'ов, 1 combobox и 2 кнопки.
В обработчике событий bitbtn1.onclick пишу следующее:

procedure TForm6.sBitBtn1Click(Sender: TObject);
begin
Form2.Table1.Active:=false;
Form6.Query1.Close;
Form6.Query1.SQL.Clear; 
Form6.Query1.SQL.Add('update abonents.db set Familiya="'+Form6.Edit1.Text+'", Imya="'+Form6.Edit2.Text+'", ');
Form6.Query1.SQL.Add('Otchesnvo="'+Form6.Edit3.Text+'", Adress="'+Form6.Edit4.Text+'", ');
Form6.Query1.SQL.Add('Tarif="'+Form6.Combobox1.Text+'", Lichn_nomer="'+Form6.Edit5.Text+'"' );
Form6.Query1.SQL.Add('where (Familiya="'+Form2.DataSource1.DataSet.FieldValues['Familiya']+'")');
Form6.Query1.ExecSQL;
Form2.Table1.Active:=true;
end;

После того как я вбил данные и нажимаю на кнопку - у меня выходит:
Project Project1.exe raised exception class EDatabaseError with message 'Table1:Field 'Familiya' not found'. Process stopped. Use Step or Run to continue.
Ругается конкретно на тот текст который я подчеркнул выше.

[ByAlex]

После того как я вбил данные и нажимаю на кнопку - у меня выходит:
Project Project1.exe raised exception class EDatabaseError with message 'Table1:Field 'Familiya' not found'. Process stopped. Use Step or Run to continue.
Ругается конкретно на тот текст который я подчеркнул выше.

Проверь существование поля Familiya в таблице 1!

[nursak]

Оно существует, описано в программе верно, вот не пойму почему он не находит его

[OlegVE]

Здравствуйте
Form2.DataSource1 у Вас случайно не прицеплен ли к Form2.Table1.Active:=false; ?
До свидания

[nursak]

Сообщение от OlegVE

Здравствуйте
Form2.DataSource1 у Вас случайно не прицеплен ли к Form2.Table1.Active:=false; ?
До свидания

Здравствуйте.
Извините не совсем понял вопроса, приложил проект, если будет время и желание - глянете. Спасибо за отклик.

UPD: Забыл предупредить - в программе использую компонент AlphaControls (www.alphaskins.com)

[OlegVE]

Благодаря этому

Form2.Table1.Active:=false;

У Вас недоступно поле здесь

Form6.Query1.SQL.Add('where (Familiya="'+Form2.DataSource1.DataSet.FieldValues['Familiya']+'")');

Запомните в строковой переменной, например

s := Form2.DataSource1.DataSet.FieldValues['Familiya'];

и вставьте перед строкой кода

Form2.Table1.Active:=false;

далее измените вышеупомянутую строку на следующую

Form6.Query1.SQL.Add('where (Familiya="'+s+'")');

P.S. Проект не запустил, у меня нет компонентов, используемых Вами.

[nursak]

OlegVE благодарю Вас за помощь, всё заработало, дай Бог Вам здоровья.