[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;

[dr. F.I.N.]

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

вылетает ошибка List Index Out Of Bounds(1)?

Ошибка говорит о том, что произошел выход за пределы массива. Проверьте существование колонок DBGrid с индексами используемыми Вами (0, 1, 2, 3).

[Alegun]

Обычно шапка названия полей вводится ещё при разработке, во время подключения таблицы и при выполнении их заполнения не требуется