绝对初学者，求帮助

绝对菜鸟，求帮助

各位大侠，我是不会这个语言，由于最经工作需要，求 解释下面代码，万分感谢...
procedure TfrmMain.alaItemsExecute(Sender: TObject);
var
  iBefore       : DWord;
begin
    iBefore := GetTickCount;
  try
    BringUpForm(TfrmItemBrowser, True,True);
  except
    On E: Exception do
      HandleEverestClientError(E, 'alaItemsExecute', ErrBringUp, Self, 'Main');
  end;
    Globals.LogTime('Load', (GetTickCount- iBefore));
end;
------解决方案--------------------------------------------------------
自己顶一下。。