1:

Raise Exception.CreateFmt('ungültiger Aufzählungstyp in Prozedur '+???,[]);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

0045F4B1@Linenumber.exe\Unit1(00422)
00437B0C@Linenumber.exe\Controls(04706)
0042E974@Linenumber.exe\StdCtrls(03473)
0042EADB@Linenumber.exe\StdCtrls(03525)
004378DE@Linenumber.exe\Controls(04646)
0043B45B@Linenumber.exe\Controls(06343)
0042E7C3@Linenumber.exe\StdCtrls(03415)
004375E9@Linenumber.exe\Controls(04553)
0043B61D@Linenumber.exe\Controls(06388)
0043BDFA@Linenumber.exe\Controls(06574)
004572ED@Linenumber.exe\Forms(04117)
004378DE@Linenumber.exe\Controls(04646)
0043B45B@Linenumber.exe\Controls(06343)
00454AF9@Linenumber.exe\Forms(03099)
0043B02B@Linenumber.exe\Controls(06237)
0041DA0E@Linenumber.exe\Classes(10967)
77E3158F@user32.dll\???(?????)
77E2AFA1@user32.dll\???(?????)
77E2AFC7@user32.dll\???(?????)
717521F0@comctl32.dll\???(?????)
7175276F@comctl32.dll\???(?????)
71752574@comctl32.dll\???(?????)
7172C11B@comctl32.dll\???(?????)
7175276F@comctl32.dll\???(?????)
71752643@comctl32.dll\???(?????)
77E3158F@user32.dll\???(?????)
77E2B7A9@user32.dll\???(?????)
77E2B811@user32.dll\???(?????)
77E28126@user32.dll\???(?????)
77E17AE2@user32.dll\???(?????)
77E3158F@user32.dll\???(?????)
77E2AFA1@user32.dll\???(?????)
77E17E2D@user32.dll\???(?????)
0043B5A1@Linenumber.exe\Controls(06369)
0043CE9E@Linenumber.exe\Controls(07091)
004378DE@Linenumber.exe\Controls(04646)
0043B45B@Linenumber.exe\Controls(06343)
0042E7C3@Linenumber.exe\StdCtrls(03415)
0043B02B@Linenumber.exe\Controls(06237)
0041DA0E@Linenumber.exe\Classes(10967)
77E3158F@user32.dll\???(?????)
77E31DC9@user32.dll\???(?????)
77E17ED6@user32.dll\???(?????)
0045C63C@Linenumber.exe\Forms(06892)
0045C8D7@Linenumber.exe\Forms(06976)
0045F77C@Linenumber.exe\Linenumber(00013)
77E98989@kernel32.dll\???(?????)
00000000@Linenumber.exe\System(?????)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Procedure TForm1.Button1Click(Sender: TObject);
Label
    Test;
Var
    X: Pointer;
Begin  
    Memo1.Lines.BeginUpdate;
    try
    Memo1.Lines.Clear;

Test:
    Asm
    MOV     EAX, OFFSET [Test]
    MOV     DWORD PTR [X], EAX    
    End;

    Caption := AddressToLocation(X);

    GetDetailedStackTrace(Memo1.Lines, 100);
    finally
        Memo1.Lines.EndUpdate;
    End;
End;