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:

program Test;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TTest = class
    published
      procedure DoTest;
      procedure DoTest2;
  end;
  Proc = procedure of object;

var
  Test: TTest;
  PMethod: ^Proc;

{ TTest }

procedure TTest.DoTest;
begin
  WriteLn(self.ClassName + '.DoTest');
end;

procedure TTest.DoTest2;
begin
  WriteLn(self.ClassName + '.DoTest2');
end;

begin
  try
    Test := TTest.Create;
    Test.DoTest;
    PMethod := Test.MethodAddress('DoTest');
    TMethod(PMethod^).Code := Test.MethodAddress('DoTest2');
    TMethod(PMethod^).Data := Test;
    WriteLn('Name: ' + Test.MethodName(PMethod));
    Test.DoTest;
  except
    on E:Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Test := TTest.Create;
asm
    MOV EAX, Test
    MOV EAX, DWORD PTR [EAX] //VMT
    MOV EDX, VMTOFFSET [TTest.DoTest]
    MOV ECX, VMTOFFSET [TTest.DoTest2]
    PUSH DWORD PTR [EAX+EDX]
    POP DWORD PTR [EAX+ECX]
end;
Test.DoTest;					

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

var
  Tmp: DWORD; 
  MBI: TMemoryBasicInformation; 
begin
  VirtualQuery(@TTest.DoTest, MBI, SizeOf(MBI));
  Virtualprotect(MBI.BaseAddress, MBI.RegionSize, Page_Execute_ReadWrite, @Tmp);

  Test.DoTest;

  asm
    MOV EAX, Test
    MOV EAX, DWORD PTR [EAX]
    MOV EDX, VMTOFFSET [TTest.DoTest]
    MOV ECX, VMTOFFSET [TTest.DoTest2]
    PUSH DWORD PTR [EAX+ECX]
    POP DWORD PTR [EAX+EDX]
  end;
 
  Test.DoTest;

  FlushInstructionCache(GetCurrentProcess, @TTest.DoTest, 4);
  VirtualProtect(MBI.BaseAddress, MBI.RegionSize, Tmp, Tmp);					

1:
2:
3:
4:
5:
6:
7:
8:

asm
  MOV EAX, Test
  MOV EAX, DWORD PTR [EAX] //VMT
  MOV EDX, VMTOFFSET [TTest.DoTest]
  MOV ECX, VMTOFFSET [TTest.DoTest2]
  PUSH DWORD PTR [EAX+ECX]
  POP DWORD PTR [EAX+EDX]
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

asm
  push ebx
  mov eax, oldfunc        // oldfunc points to handler being replaced
  mov ebx, newfunc        // newfunc points to a new handler
  mov byte ptr [eax], $E9 //JMP instruction
  sub ebx, eax
  sub ebx, 5              // sizeof(JMP xxx)
  mov dword ptr [eax + 1], ebx
  pop ebx
end;					

1:

MOV EDX, VMTOFFSET [TTest.DoTest]