www.pudn.com > DelphiX_for7.zip > DXRender.inc

mov eax,offset @@StartCode    // Move(@@StartCode, Code^, @@EndCode-@@StartCode) 
mov edx,dword ptr [Code] 
mov edx,dword ptr [edx] 
mov ecx,offset @@EndCode 
sub ecx,offset @@StartCode 
call Move 
mov ecx,dword ptr [Code]      // ecx := Code; 
mov ecx,dword ptr [ecx] 
mov eax,offset @@EndCode      // Inc(PByte(Code), (@@EndCode-@@StartCode)); 
sub eax,offset @@StartCode 
mov edx,dword ptr [Code] 
add dword ptr [edx],eax