procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);
var
  Instance: TComponent;
begin
  Instance := TComponent(InstanceClass.NewInstance);   什么意思啊
  TComponent(Reference) := Instance;  什么意思
  try
    Instance.Create(Self);  什么意思啊
  except
    TComponent(Reference) := nil;  什么意思
    raise;   什么意思
  end;
  if (FMainForm = nil) and (Instance is TForm) then
  begin
    TForm(Instance).HandleNeeded;
    FMainForm := TForm(Instance);
  end;
end;