Type TInput Field key_W Field key_S Field key_D Field key_A ;и вобще всё что будет обрабатыватся end type Global Input.Tinput=new TInput