а разве так можно?
Moving1 := Moving2 := 1;