>>31
へえ
procedure hoge;begin end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := Format('%p',[@hoge]);
end;

試してみたよ。　ホントだ。　

>>32
でも、その場合、相対では指定出来ないでしょ。