Переделала все заново, эта ошибка исчезла!
Теперь новая
LIST INDEX OUT OF BOUNDS (0)
procedure Tform_aut.RzBitBtn1Click(Sender: TObject);
begin
Form_zakaz.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Desktop\SRANZ.mdb;Persist Security Info=False';
Form_zakaz.ADOConnection1.Connected:=true;
if (rzCombobox1.Items.Strings[rzCombobox1.ItemIndex]='Администратор') then
begin
Form_zakaz.log.CommandText:='SELECT * FROM t_login WHERE name=:1';
Form_zakaz.log.Parameters.Items[0].Value:='Admin'; Form_zakaz.log.Active:=true;
if RzEdit1.Text<>Form_zakaz.log.FieldByName('pass').AsString then
begin
ShowMessage('Не верный пароль');
Form_zakaz.ADOConnection1.Connected:=false;
end
else
begin
zap:=1;
Form_zakaz.WindowState:=wsMaximized;
Form_zakaz.RzStatusPane1.Caption:='Администратор';
Form_zakaz.zakaz.CommandText:='SELECT * FROM zakaz';
Form_zakaz.zakaz.Active:=true;
Form_zakaz.Show;
Form_aut.Hide;
end;
end
выскакивает на красной строчке