Здравствуйте, Владимир!

Предлагаю вариант решения задачи с описанием по результатам обсуждения в форуме.

Полный текст модуля в приложении.

Удачи.

Приложение:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls, OleServer, ExcelXP;

type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
Edit1: TEdit;
ComboBox1: TComboBox;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var XLApp, XLWorkBook, XLSheet: Variant;
i: Integer;

begin

if OpenDialog1.Execute then
begin
XlApp := CreateOleObject('Excel.Application');
XLWorkBook := XlApp.WorkBooks.Open(OpenDialog1.FileName);
for i:= 1 to XLWorkBook.Sheets.Count do // проходим по всем листам рабочей книги
begin
XLSheet := XLWorkBook.WorkSheets[i];
case i of // в зависимости от номера листа выполняем действия
1:
begin // перенос с первой страницы
Edit1.Text:= XLSheet.Range['a1'].Value; // перенос в поле Edit
XLSheet.Range['a1:a5'].Copy; // вариант для переноса в поле Memo
memo1.PasteFromClipboard;
end;
2: ComboBox1.text:= XLSheet.Range['a2'].Value; // перенос со второй страницы в ComboBox
end;
end;
XLWorkBook.Close;
XlApp.Quit;
end;

end;

end.