Процедура открытия файла (xls/doc) и записи данных в таблицу SQL

procedure TForm1.RzToolButton1Click(Sender: TObject);
var
    Rows, Cols, i,j :integer;
    WorkSheet       :Variant;
    XLSFile         :Variant;
begin
    XLSFile:=CreateOleObject('Excel.Application');
    if OpenDialog.Execute then
        begin
            //открываем книгу
            XLSFile.Workbooks.Open(OpenDialog.FileName);
            //получаем активный лист
            WorkSheet:=XLSFile.ActiveWorkbook.ActiveSheet;
            //определяем количество строк и столбцов таблицы
            Rows:=WorkSheet.UsedRange.Rows.Count;
            Cols:=WorkSheet.UsedRange.Columns.Count;
            //считываем данные всего диапазона
            XLSFile:=WorkSheet.UsedRange.Value;
            RzStringGrid.RowCount:=Rows;
            RzStringGrid.ColCount:=Cols;
            //выводим данные в таблицу
            for I := 0 to Rows-1 do
                for j := 0 to Cols-1 do
                    begin
                        RZStringGrid.Cells[J,I]:=XLSFile[I+1,J+1];
                        //RzDBGrid.
                    end;
 
        end;
end;

        DM.ADOConnection.BeginTrans;
        with DM.PInsertStudent do
        begin
          Parameters.ParamByName('@FName').Value:=XLSFile.Cells[1,I+1];
          Parameters.ParamByName('@IName').Value:=XLSFile.Cells[2,I+1];
          Parameters.ParamByName('@OName').Value:=XLSFile.Cells[3,I+1];
          Parameters.ParamByName('@Gender').Value:=XLSFile.Cells[4,I+1];
          Parameters.ParamByName('@Birthday').Value:=XLSFile.Cells[5,I+1];
        end;