Visualizar cambios en excel e imprimirlo

[Max_E.]

Hola atodos:

Quisiera que alguien me ayude en esto.

Saque este codigo de otro mensaje enviado a este grupo funciona muy bien, se trata de guardar siertas palabras en celdas especificas en un documentp excel ya creado, pero el caso es que guarda los cambios sin mostrar el archivo con las modificaciones y manda defrente a la regunta desea guardar los cambios? y lo que deseo es que me muestre los cambios, cual es el codigo que tengo que aumnetar y donde, antes o despues del Excel.Quit;
y si no es mucha molestia tambien como le ago para imprimirlo desde delphi la misma hoja despues que yo este deacuerdo con los cambios

este es el codigo:

procedure TForm1.Button1Click(Sender: TObject);
Var
Excel : Variant;
Archivo : String;
i:integer;
begin
try
Excel := CreateOleObject('Excel.Application');
except
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel.');
raise;
end;

//***** Asignamos el archivo a abrir *****//
Archivo := 'C:\Personal.xls';
Excel.Workbooks.Open(Archivo);

Excel.Range['A1','G90'].Font.Size := 9;
Excel.Range['A1','G90'].Font.Bold := False;
Excel.Range['A1','G90'].Font.Name := 'Arial';

Excel.Cells[5,1].Value := 'Max Enrique';
Excel.Cells[1,1].Range['B5','G5'].Value := VarArrayOf(['Apellido','codigo','area','direccion','telefono','celular']);

//***** IMPORTANTÍSIMO *****//
Excel.quit;
end;




Gracias de ante mano cualquier ayuda que pueda recibir.