Проблема с входом в раздел..

[Otar4ik]

Пишу диплом и программу электронного учебника.

Создал запрос с паролем чтобы войти в раздел..компилируется отлично а вот как запускаю пишет Table1.Field'Imia' not Found..под примеру другой программы сверял все также и другая программа работает..а вот моя не запускается

ошибку находит в этом фрагменте:

if (Ed_imia.Text=Table1['Imia'])and(Ed_parol.Text=Table1['Parol'])then

я уже изменил TField в Table1 и вписал имя и пароль но все также выдает ошибку

Вот код кнопки входа:

procedure TForm26.Button1Click(Sender: TObject);
begin
if (Ed_imia.Text=Table1['Imia'])and(Ed_parol.Text=Table1['Parol'])then
begin
Table1.Close;
Close;
if Rbt_Test.Checked then
begin
Form27.Table1.Active:=True;
Form27.Visible:=True;
end;
if Rbt_gurnal.Checked then
begin
Form28.Visible:=true;
Form28.Table1.Active:=true;
end;
if Rbt_smen_parol.Checked then
begin
Form29.Visible:=True;
Form29.Table1.Active:=true;
end;
end
else
begin
showmessage('Ошибка при вводе');
Ed_imia.SetFocus;
end;
Form26.ochish;
end;

end.

[raxp]

procedure TForm26.Button1Click(Sender: TObject);
begin
if (Ed_imia.Text=Table1['Imia'])and(Ed_parol.Text=Table1['Parol'])then
begin
Table1.Close;
Close;

[Otar4ik]

То есть последний 2 строки убрать?.

убирал все также выдает пишет:
"проект Project.exe вызвал исключение класса EDatabaseError с сообщением Table1:Field 'Imia' not found