Files Delphi

Title: Open the password-protected xls-file and save without password
Today I want to show how you may load some xls-file that is
password-protected, and how to save xls into another file but without
protection.
var
xls, xlw: Variant;
begin
{load MS Excel}
xls := CreateOLEObject('Excel.Application');
{open your xls-file}
xlw := xls.WorkBooks.Open(FileName := 'd:ook1.xls', Password := 'qq',
ReadOnly := True);
{save with other file name}
xlw.SaveAs(FileName := 'd:ook2.xls', Password := '');
{unload MS Excel}
xlw := UnAssigned;
xls := UnAssigned;
end;
Just replace there file names and password