Error to Execute example

[fernando-garoso]

workBook := TZWorkBook.Create(); => workBook := TZWorkBook.Create( nil );

Excel4Delphi.pas
function TZSheets.Add(title: string): TZSheet;
add line: FCount := FCount + 1;

[fernando-garoso]

function TZSheets.Add(title: string): TZSheet;
begin
FCount := FCount + 1;
result := TZSheet.Create(FStore);
SetLength(FSheets, Length(FSheets) + 1);
result.Title := title;
FSheets[High(FSheets)] := result;
end;