Contraseña para excel desde delphi

[[cHackAll]]

Código Delphi [-]
uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var Excel, Workbook: OleVariant;
begin
 Excel := CreateOleObject('Excel.Application');
 Workbook := Excel.Workbooks.Add;
 Workbook.Worksheets[1].Cells[1, 1].Value := 'by cHackAll';
 Workbook.SaveAs('c:\book1.xls', , 'HAclave');
 Excel.Quit;
end;