Выдача ошибки при компиляции, Не пойму в чем не прав Опции

[Искатель]

Здравствуйте! Хочу показать работу (обработка базы данных предприятий) ,в которой не знаю как запрограммировать две кнопки: "Удалить" предприятие и "Изменить" данные о предприятии. Помогите, пожалуйста.
Кнопку "Удалить" попробовал обработать, но получается какая-то ахинея.

Сообщение отредактировано: Искатель - 10.05.2011 21:42

[IUnknown]

Зачем? Есть событие OnClose основной формы. В него впиши вызов savedb. Или добавь его в тот код, который я показал выше. Кстати. Он не совсем корректен. Я забыл кое-что:

procedure TForm1.SpeedButton3Click(Sender: TObject); // удаление строки
begin
   if lb1.Items.Count = 2 then exit;
   Move(records[lb1.ItemIndex + 2], records[lb1.ItemIndex + 1],
         sizeof(TMyRec) * (200 - (lb1.ItemIndex + 1)));
   lb1.DeleteSelected;

   Dec(col); // Вот без этого процедура сохранения базы будет работать неправильно
end;