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

type
  TfrmMain = class(TForm)
  published
      function EnumWindowsProc(wHandle: HWND; LParm: lParam): Bool; stdcall; export;
  end;

{...}

function TfrmMain.EnumWindowsProc(wHandle: HWND; LParm: lParam): Bool; stdcall; export;
begin
  //...
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var
  EnumWindowsProc: TMethod;
begin
  EnumWindowsProc.Data := Pointer(self);
  EnumWindowsProc.Code := Self.MethodAddress('EnumWindowsProc');
  if (EnumWindowsProc.Data <> nil) and  (EnumWindowsProc.Code <> nil) then
    EnumWindows(@EnumWindowsProc, 0);
end;					

1:

function TfrmMain.EnumWindowsProc(wHandle: HWND; LParm: lParam): Bool; stdcall; export;					

1:

function TfrmMain_EnumWindowsProc({-->}Self: TfrmMain;{<--} wHandle: HWND; LParm: lParam): Bool; stdcall; export;					

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

function EnumWindowsProc(wnd: HWND; Form: TfrmMain); stdcall;
begin
  Result := Form.EnumWindowProc(wnd, 0);
end;

procedure TfrmMain.Button1Click(Sender: TObject); 
begin 
  EnumWindows(@EnumWindowsProc, {-->}Integer(Self){<--}); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormCreate(Sender: TObject);
begin
  NormProc; // normale Prozedur um den Register-Cache zu umgehen
end;

procedure NormProc;
begin
  Form1.SelfTest;
end;

procedure TForm1.SelfTest;
begin
  ShowMessage('Hier bin ich.');
end;					

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

PROC TForm1.FormCreate:
asm
  CALL NormProc
end;

PROC NormProc:
asm
  MOV EAX, [Form1]
  CALL TForm1.SelfTest
end;