[Black Raider]

где то примерно так (Немного обрезал но основное что нужно вам тут есть):

Код:

var 
    excel, workbook, sheet: variant; //OLE
    st,st1,st2,st3,st4,st5,st6,st7:string;
    i,y,idf:integer;
    lk:TTransactionDesc;
    dtt:TdateTime;
    isDealerNds,isRetailNDS,isRetailShopNDS:TNDS;
begin
  try
    excel := createoleobject('excel.application');//Создем объект OLE
    excel.workbooks.open(sedit1.text,false); //Открываем файл 
    workbook:=excel.workbooks.item[1]; //Выбираем книгу
    sheet := workbook.worksheets[1]; //Выбираем лист
    sheet.cells.specialcells(xlcelltypelastcell,emptyparam).activate;
    y := excel.activecell.row; //Получаем максимал. кол-во строк
    for i:=2 to y do
    begin
 //получаем данные из ячеек 
      st1:=trim(sheet.cells[i,1]);
      st2:=trim(sheet.cells[i,2]);
      st3:=trim(sheet.cells[i,3]);
      st4:=trim(sheet.cells[i,4]);
      st5:=trim(sheet.cells[i,5]);
      st6:=trim(sheet.cells[i,6]);
      try
       //Проверяем в запросе к Мускулу есть ли такая  фамилия
      //если нет то вставляем данные в новую таблицу
      except
      on e:Exception do
        begin
           //Если при вставке или запросе к БД вылез эксепшен
          // то обрабатываем тут
          showmessage(E.message);
        end;
      end;
    end;
   if not VarIsEmpty(Excel) then Excel.quit;// Выходим из Excel
except
  on e:Exception do
    begin
      if not VarIsEmpty(Excel) then excel.quit;
   end;
end;