Проверка импортируемых записей из эксель-файла

begin
  if not OD.Execute then
    Exit;
  XL := CreateOleObject('Excel.Application');
  XL.DisplayAlerts := False;
  XL.WorkBooks.Open(OD.FileName);
  i := 3;
  j := XL.ActiveCell.SpecialCells(xlCellTypeLast).Row;
  while i <> j + 1 do
  begin
    DM.Stat.Insert;
    if XL.cells[i, 7].Value <> DM.Stat.FieldByName('id_st').Value then
    begin
      DM.Stat.FieldByName('id_podr').Value := XL.cells[i, 1].Value;
      DM.Stat.FieldByName('id_work').Value := XL.cells[i, 2].Value;
      DM.Stat.FieldByName('date_st').Value := XL.cells[i, 3].Value;
      DM.Stat.FieldByName('time_s').Value := XL.cells[i, 4].Value;
      DM.Stat.FieldByName('time_f').Value := XL.cells[i, 5].Value;
      DM.Stat.FieldByName('prim').Value := XL.cells[i, 6].Value;
      DM.Stat.FieldByName('id_st').Value := XL.cells[i, 7].Value;
      DM.Stat.Post;
    end
    else
    begin
      MessageBox(Handle, 'Данные записи уже содержатся в таблице!', 'ОШИБКА',
        MB_ICONERROR);
      DM.Stat.Cancel;
      Exit;
    end;
    inc(i);
  end;

try
 ...Post();
except
 E:Exception do ShowMessage('Такая запись уже есть');
end;

  while i <> j + 1 do
  begin
    DM.Stat.Insert;
    DM.Stat.FieldByName('id_podr').Value := XL.cells[i, 1].Value;
    DM.Stat.FieldByName('id_work').Value := XL.cells[i, 2].Value;
    DM.Stat.FieldByName('date_st').Value := XL.cells[i, 3].Value;
    DM.Stat.FieldByName('time_s').Value := XL.cells[i, 4].Value;
    DM.Stat.FieldByName('time_f').Value := XL.cells[i, 5].Value;
    DM.Stat.FieldByName('prim').Value := XL.cells[i, 6].Value;
    DM.Stat.FieldByName('id_st').Value := XL.cells[i, 7].Value;
    try
      DM.Stat.Post;
    except
    E : Exception do
    ShowMessage('Такая запись уже есть');
      inc(i);
    if VarIsEmpty(XL) = False then
    begin
      XL.Quit;
      XL := 0;
    end;
  end;

Var
  Xls: TAdoDataSet;
begin
 Xls := TAdoDataset.Create(nil);
 Xls.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\DBase\FishShipsRussia.xls;Extended Properties="Excel 8.0;Hdr=Yes";Persist Security Info=False';
 Xls.CommandText := 'select * from [Russian$] where [Ship type] = :ShipType';
 Xls.Parameters.ParamValues['ShipType'] := 'Fish Factory Ship';
 Xls.Open;