Excel’den Veritabanına Veri Transferi

uses ComObj;

procedure TForm1.Button2Click(Sender: TObject);
var
    book:variant;
    excel,sheet:variant;
    satir, sutun:integer;
    str:string;
begin

    excel := createOleObject("Excel.application");
    OpenDialog1.Filter := "Excel Dosyaları (*.xls)|*.xls";
    if opendialog1.Execute then
    begin
        book:= Excel.WorkBooks.Open(OpenDialog1.FileName);
        try
            Screen.Cursor := crHourGlass;
            sheet := book.worksheets[1];
            for satir:=1 to 2500 do
            begin
                str := sheet.cells[satir, 1];
                if (str <> "") then
                begin
                    Update;
                    Table1.Append;
                    for sutun:=1 to 11 do
                        Table1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun];
                    Table1.Post;
                end;
            end;
            Excel.quit;
            excel:=Unassigned;
        finally
            Screen.Cursor := crDefault;
        end;
    end;

End;

procedure TForm1.FormShow(Sender: TObject);
begin
    Table1.Open;
end;

procedure TForm1.FormClose(Sender: TObject;  var Action: TCloseAction);
begin
    Table1.Close;
end;