Delphi消息处理函数有关问题请问

Delphi消息处理函数问题请教
procedure TWinControl.DefaultHandler(var Message);
begin
  ...................
  case Msg of
  WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC:
  Result := SendMessage(LParam, CN_BASE + Msg, WParam, LParam);
  .....
  end;
end;

如上是TWinControl的DefaultHandler的源码片段。我想问的是：这是一个procedure，为什么会有Result变量？function才会有返回值的啊，这不符合基本语法的？

[解决办法]
没看到上面的with ... do begin?