[Alegun]

Вот про цикл немного

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 i,j: integer;
 exApp,exBook,exBook2,exSh,exSh2: Variant;
begin
 if not OpenDialog1.Execute then exit;
 if not OpenDialog2.Execute then exit;
 i:= OpenDialog1.Files.Count;
 j:= OpenDialog2.Files.Count;
 if i-j < 0 then j:= i;

 exApp:= CreateOleObject('Excel.Application');
 exApp.Visible:= false;

 for i := 0 to j-1 do
  begin
   Application.ProcessMessages;
   exBook:=  exApp.Workbooks.Open(OpenDialog1.Files[i]);
   exSh:=  exApp.ActiveWorkbook.WorkSheets[1];
   exBook2:= exApp.Workbooks.Open(OpenDialog2.Files[i]);
   exSh2:= exApp.ActiveWorkbook.WorkSheets[1];
   exSh2.Move(EmptyParam, exBook.WorkSheets[1]);
   exBook.Save;
   exBook:= UnAssigned;
   exBook2:= UnAssigned;
  end; {for}

 exApp.Quit;
 exApp:= Unassigned;
 ShowMessage('Выполнено');
end;

а ниже "кошечки" на чём тренировалси