type
TProc = function(str:pAnsichar): Cardinal;
var
p: TProc

p:= @RegisterWindowMessage;