[Anastasya32]

Здравствуйте, подскажите пожалуйста почему вылетает ошибка
List Index Out Of Bounds(1)? Пишу обработчик для кнопки и никак не работает

Код обработчика:

Код:

procedure TFormReportEmpl.btReportClick(Sender: TObject);
begin
   if Edit1.Text='' then
     begin
       ShowMessage('Введите Фамилию!');
     end
   else
     begin
       with DataModule1.QuREmpl do
         begin
         if Active = True  then
           Close;
           Prepare;
           ParamByName('fio').AsString:= Edit1.Text;
           Open;
            DBGrid1.Columns[0].Title.Caption := 'ФИО';
            DBGrid1.Columns[1].Title.Caption := 'Должность';
            DBGrid1.Columns[2].Title.Caption := 'Дата заказа';
            DBGrid1.Columns[3].Title.Caption := 'Итог';
         end;
     end;
end;