[How return from Anonymous procedure Form]

I'am use anonymous procedure for Callback Form:

Why the variable does not return

procedure CallActionFrm2(var I: integer);
var
  AfrmBaseDictionaryList: TfrmBaseDictionaryList;
  tmp: Integer;
begin
  tmp := I;
  with TfrmBaseDictionaryList.Create(UniApplication) do
  begin
    ShowModal(
      procedure(Sender: TComponent; AResult: Integer)
      begin
        if AResult = mrOk then
        begin
          tmp := 100;
        end;
      end
      );
    I := tmp;
  end;
end;

...

procedure TfrmAdmPlanItem.btnSearchClick(Sender: TObject);
var
  id: Integer;
begin
  id := 1;
  CallActionFrm2(id);
  edtInn.Text := IntToStr(id); // get id = 1, but id = 100!
end;

Why the variable id does not return ?

[Remove border from UniForm]

I'am use FMSoft_uniGUI_Complete_Professional_1.90.0.1496_Trial

[Remove border from UniForm]

Hi, how to remove border from window.

I use in Form:

function window.afterrender(sender, eOpts)
{
   Ext.get (sender.id) .el.setStyle ("padding", 0);
  Ext.get (sender.id) .el.setStyle ("border-width", 0);
  Ext.get (sender.id) .el.setStyle ("- webkit-border-radius", 0);
  Ext.get (sender.id) .el.setStyle ("- moz-border-radius", 0);
  Ext.get (sender.id) .el.setStyle ("border-radius", 0);
}

BorderStyle:none;

But, I see white border window.