Update Core.pas