This is my problem:
asm
{$IFDEF CPUX86}
mov ecx, core_globals_value
mov edx, dword ptr TSRMLS_DC
mov eax, dword ptr [edx]
mov ecx, dword ptr [eax+ecx*4-4]
mov core_globals, ecx
{$ELSE}
mov rcx, core_globals_value
mov rdx, qword ptr TSRMLS_DC
mov rax, qword ptr [rdx]
mov rcx, qword ptr [rax+rcx*4-4]
mov core_globals, rcx
{$ENDIF}
end;

Delphi 10 Seattle,
TSRMLS_DC is type of Pointer
core_globals_value is a record

Line: mov rax, qword ptr [rdx] causes a vialotion error.

the CPUX86 part works correct, but how i have to alter the x64 part to work?

many thanks if you have a solution