---.pas.135: begin
006A0E68 55               push ebp
006A0E69 8BEC             mov ebp,esp
006A0E6B 83C4F8           add esp,-$08
006A0E6E 33C0             xor eax,eax
006A0E70 8945FC           mov [ebp-$04],eax
006A0E73 8B450C           mov eax,[ebp+$0c]
006A0E76 33D2             xor edx,edx
006A0E78 55               push ebp
006A0E79 68030F6A00       push $006a0f03
006A0E7E 64FF32           push dword ptr fs:[edx]
006A0E81 648922           mov fs:[edx],esp
---.pas.136: if TYPE(x) <> TT_STRING then
006A0E84 0FB65008         movzx edx,[eax+$08]
006A0E88 80FA06           cmp dl,$06
006A0E8B 740F             jz $006a0e9c
---.pas.137: x := ConvertType(x, TT_STRING);
006A0E8D 6A06             push $06
006A0E8F 50               push eax
006A0E90 A1D4C81F01       mov eax,[$011fc8d4]
006A0E95 8B00             mov eax,[eax]
006A0E97 FFD0             call eax
006A0E99 83C408           add esp,$08
---.pas.139: result := GetStrXXX(x);
006A0E9C 33D2             xor edx,edx
006A0E9E 55               push ebp
006A0E9F 68E60E6A00       push $006a0ee6
006A0EA4 64FF32           push dword ptr fs:[edx]
006A0EA7 648922           mov fs:[edx],esp
006A0EAA 8945F8           mov [ebp-$08],eax
006A0EAD 8D45FC           lea eax,[ebp-$04]
006A0EB0 8B55F8           mov edx,[ebp-$08]
006A0EB3 8B12             mov edx,[edx]
006A0EB5 83C214           add edx,$14
006A0EB8 83EA04           sub edx,$04
006A0EBB B9E9FD0000       mov ecx,$0000fde9
006A0EC0 E807B1D6FF       call @LStrFromPChar
006A0EC5 8B4508           mov eax,[ebp+$08]
006A0EC8 8B55FC           mov edx,[ebp-$04]
006A0ECB E828AED6FF       call @LStrAsg
006A0ED0 33C0             xor eax,eax
006A0ED2 5A               pop edx
006A0ED3 59               pop ecx
006A0ED4 59               pop ecx
006A0ED5 648910           mov fs:[eax],edx
006A0ED8 68ED0E6A00       push $006a0eed
006A0EDD 8D45FC           lea eax,[ebp-$04]
006A0EE0 E8B3A9D6FF       call @LStrClr
006A0EE5 C3               ret 
006A0EE6 E9659ED6FF       jmp @HandleFinally
006A0EEB EBF0             jmp $006a0edd
---.pas.141: end;
006A0EED 33C0             xor eax,eax
006A0EEF 5A               pop edx
006A0EF0 59               pop ecx
006A0EF1 59               pop ecx
006A0EF2 648910           mov fs:[eax],edx
006A0EF5 680A0F6A00       push $006a0f0a
006A0EFA 8D45FC           lea eax,[ebp-$04]
006A0EFD E896A9D6FF       call @LStrClr
006A0F02 C3               ret 
006A0F03 E9489ED6FF       jmp @HandleFinally
006A0F08 EBF0             jmp $006a0efa
006A0F0A 59               pop ecx
006A0F0B 59               pop ecx
006A0F0C 5D               pop ebp
006A0F0D C3               ret 
006A0F0E 8BC0             mov eax,eax

---.pas.135: begin
006A0E68 55               push ebp
006A0E69 8BEC             mov ebp,esp
006A0E6B 53               push ebx
006A0E6C 8B5D0C           mov ebx,[ebp+$0c]
---.pas.136: if TYPE(x) <> TT_STRING then
006A0E6F 0FB64308         movzx eax,[ebx+$08]
006A0E73 3C06             cmp al,$06
006A0E75 7411             jz $006a0e88
---.pas.137: x := ConvertType(x, TT_STRING);
006A0E77 6A06             push $06
006A0E79 53               push ebx
006A0E7A A1D4C81F01       mov eax,[$011fc8d4]
006A0E7F 8B00             mov eax,[eax]
006A0E81 FFD0             call eax
006A0E83 83C408           add esp,$08
006A0E86 8BD8             mov ebx,eax
---.pas.139: result := PAnsiChar(NativeInt(@x.val) - 4);
006A0E88 8B4508           mov eax,[ebp+$08]
006A0E8B 8B13             mov edx,[ebx]
006A0E8D 83C214           add edx,$14
006A0E90 83EA04           sub edx,$04
006A0E93 B9E9FD0000       mov ecx,$0000fde9
006A0E98 E82FB1D6FF       call @LStrFromPChar
---.pas.140: end;
006A0E9D 5B               pop ebx
006A0E9E 5D               pop ebp
006A0E9F C3               ret