uses
...ComObj, OleServer;
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: OLEVariant;
fichero: string;
begin
ExcelApp := CreateOleObject('Excel.Application');
try
fichero:=ExtractFilePath(ParamStr(0))+'Plantilla.xls';
ExcelApp.Workbooks.Open(fichero);
ExcelApp.cells.item[7,'I']:=strtoint(Edit1.Text);
ExcelApp.cells.item[8,'I']:=20;
ExcelApp.Worksheets[1].PrintOut;
finally
if not VarIsEmpty(ExcelApp) then
begin
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
end;
end;