[Andrej-zhe]

да 0 записей, а как тогда поступить. Ситуация следующая.
когда я вывожу информацию в dbgrid то при завершении программы эти данные сохраняются в sbor.dbf. При повторном запуске программы и выборе какой либо информации, эта информация дописывается в sbor.dbf. Таким образом пользователь может получить через пол года файл БД размером в несколько Гб. Я делаю удаление всех записей после завершения программы. Но при запуске с очищенным файлом у меня вывод информации отказывается делаться.

Код:

Query1.Open;
if Query1.RecordCount>0 //отсюда перепрыгивает
  then
  begin
  tblSbor.TableName:='sbor.dbf';
  tblSbor.Open;
  while not Query1.Eof do
    begin
    tblSbor.Insert;
    tblSbor.FieldByName('nist').Value:=Query1.FieldByName('nist').Value;
    tblSbor.FieldByName('kodn').Value:=Query1.FieldByName('kodn').Value;
    tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
    tblSbor.FieldByName('dpo').Value:=Query1.FieldByName('dpo').Value;
    tblSbor.FieldByName('otd').Value:=Query1.FieldByName('otd').Value;
    tblSbor.FieldByName('fio').Value:=Query1.FieldByName('fio').Value;
    tblSbor.FieldByName('date_wz').Value:=Query1.FieldByName('date_wz').Value;
    tblSbor.FieldByName('dp').Value:=Query1.FieldByName('dp').Value;
    tblSbor.FieldByName('dw').Value:=Query1.FieldByName('dw').Value;
    tblSbor.Post;
    Query1.Next;
    end;
  end
  else
ShowMessage('Укажите период, за который необходимо показать данные по операциям'); //сюда

условие не выполняется