archivo plano y excel

[acertij022]

muy buenas delphianos aqui va mi problema:
tengo que levantar varios archivo de texto que los campos estan separados por tab (#9) y colocarlo en excel.lo he logrado pero me habre tantas instancia de excel como archivo levantados; lo que necesitaria que me guien como hacer para levantar los archivos planos en distintas solapas de una misma instancia del excel.
El codigo que estoy utlizando es el siguiete:
procedure txt_to_excel();
var
Excel: _Application;
lcid: integer;
WBk: _Workbook;
Filename: OleVariant;
begin
lcid := LOCALE_USER_DEFAULT;
Excel := CoExcelApplication.Create;
Excel.Visible[lcid] := True;
(*primer archivo*)
Filename := 'c:\Temp1.txt';
WBk := Excel.Workbooks.Open(Filename, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, LCID);
(*segundo archivo*)
Filename := 'c:\Temp2.txt';
WBk := Excel.Workbooks.Open(Filename, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, LCID);

end;:confused: :confused:

[FRANKER]

Hola, de esta manera creo pestañas en excel y le asigno un nombre
//***** Añado una nueva hoja donde va a ir el Informe
Excel.Worksheets.Add;

//***** Le pongo el Titulo a la Hoja
Excel.ActiveSheet.Name := 'Sin Titulo';

Espero que te sirva.
Saludos!!!