procedure TMainForm.Button1Click(Sender: TObject);
var
s: String;
begin
if OpenDialog1.Execute then
begin
ExcelToTable1.DataSource := DataSource1;
ExcelToTable1.FileName := OpenDialog1.FileName;
if Business.Forms.ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1) then
ExcelToTable1. Execute(s);
end;
end;