var p: PWORD; begin p:=GetMemory(2); PWORD(p)^:=30000; PWORD(p)^:=PWORD(p)^ div 65; FreeMemory(p); end;