Get object from procedure pointer

Hi

Why is the "weird" message shown?
Is it possible to detect if p1 and p2 point to Click in the same object?


type
    TP = procedure of object;
var
    b1,b2: tbutton;
    p1,p2: TP;
begin
    b1 := tbutton.create(nil);
    b2 := tbutton.create(nil);
    p1 := b1.Click;
    p2 := b2.Click;
    if @p1 = @p2 then
        showmessage('weird');
end;