Update TCG.pas

main