procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);

을 후킹해서 TForm으로 부터 상속 받은 유져 폼이 생성되기 전에 유저 폼의 가상함수를 가로채려고 합니다

빌더에서
Application->CreateForm(__classid(TForm1), &Form1);

위와 같이 __classid(TForm1)이 CreateFrom에 인수로 넘어 오는데요

제가 알고자 하는 것은 __classid(TForm1) 값으로 객체 생성 전에 TForm1의 가상함수 테이블을 알아내야 하거든요.

방법이 없을까요.