Не работает прога

[newnaicon]

Текст проги во вложении

Проблема в следующем, не рабит кнопка удаления короче не удаляется первая запись все останые норм.
суть проги напоминалка, соответсвенно есть 2 массива тектовый для заголовка напоминания и адреса музыки и целочисленный для времени и всех параметров всё это связанно с компонентом StringGrid типо выделяшь сточку тыкаши удалить и всё запись стёрта причём данные обновляются и в массивах и в стрин гриде и в файлике для храниния данных, собвтенно все удалятся добавляются удаляются нормально кроме первой записи она низачто не удаляется причём фишка в том что если прогу закрыть запусть но всё будет удалено как положено на файл поступают правильные данные, а в стрин грид всё время эта строчка висит кто чем может помогите буду очень признателен.

[Євгеній Бєлік]

Текст, довольно таки большой, то думаю что будит лучше, что бы ты виложыл исходник проги, просто так будит намного легше, разобраться в ошыбке!!!

[Stilet]

кто чем может помогите

http://yandex.ua/yandsearch?date=&te...=1448&lr=20554

[newnaicon]

Народ помогите, пожалуйста не охото брость идею уже столько сделал
Пишу программку типо планировщик напоминаний, программа почти готова т.е
всё добавляется удаляется, работает в файл сохраняет читает охото ж по уму было решил сделать автозапуск при старте системы и даже сделал, т.е прога запускает но зараза отказывается читать файл данных причём блин только при автозапуске нету файла грит тут же закрываешь открываешь всё пожалуйста ноходит всё видит работает затрахался я ужо с этой прогой.
Исходники во вложении.

[Stilet]

Ну запустил. Добавил пару записей.
Удалил. Осталась одна - первая.
Стал мышой на нее, жмакнул Удалить... Удалилась.
Перезапустил прогу... Нет записей.
Win XP SP3.

[alex_sed]

При запуске программы через start.bat твой проект не видит соержимое твоей папки...
Как вариант можно в проект включить следующее:

var
  .....................
  Path: String;
implementation
.............................
procedure TForm1.FormCreate(Sender: TObject);
begin
  Path:=ExtractFilePath(Application.ExeName);
........................
end;
........................
// А там где обращаешься к файлам сделай так (пристегни путь)
AssignFile(f, Path+'cong.txt');

[newnaicon]

не нетак на другом форуме подсказали во

AssignFile(rf,IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'config.txt');