delphi lazy and simple pirate examples