Update TCG.pas