anchor.diff:        end;
       end;
   
  -    Result:= Py_BuildValue('{sssisisisisOsi}',
  +    Result:= Py_BuildValue('{sssisisisisisi}',
         'cap', PChar(F.Caption),
         PChar(string('x')), F.Left,
         PChar(string('y')), F.Top,
         PChar(string('w')), F.Width,
         PChar(string('h')), F.Height,
  -      'res', ResObj,
  -      'focus', NActive
  +      'clicked', NClicked,
  +      'focused', NActive
         );
     end;
   end;
  
positive.code: 
  function DoForm_GetPropsAsStringDict(F: TForm): PPyObject;
  var
    ResObj: PPyObject;
    NActive, i: integer;
  begin
    with GetPythonEngine do
    begin
      if F.ModalResult<Dummy_ResultStart then
        ResObj:= ReturnNone
      else
        ResObj:= PyInt_FromLong(F.ModalResult-Dummy_ResultStart);
  
      NActive:= -1;
      for i:= 0 to F.ControlCount-1 do
  
negative.code: end;
  
  
  function DoControl_GetPropsAsStringDict(C: TControl): PPyObject;
  begin
    with GetPythonEngine do
  