Event handler won't assign!?

[User137]

Try changing
Onclick := DoClick(Self);
into
Onclick := DoClick;

You are supposed to pass a pointer to procedure, not result of procedure (functions give results, procedures even don't).