var  EIP: Cardinal; procedure GetEIP(); stdcall;asm  pop eax;  mov EIP,eax;  push eax;end; procedure TForm1.Button1Click(Sender: TObject);begin  GetEIP();  ShowMessage(‘Button1Click, 0x‘ + IntToHex(EIP, 8));end;