procedure TMainForm.UniFormShow(Sender: TObject);
var
  Html: TStringList;
begin
  Html := TStringList.Create;
  try
    Html.LoadFromFile('.\js\jsPlumb\template.html');
    Html.text := StringReplace(Html.text, '[var_unigui_jsname]',
      UniURLFrame1.JSName, [rfReplaceAll, rfIgnoreCase]);
    UniURLFrame1.Html.text := Utf8Decode(Html.text);
  finally
    FreeAndNil(Html);
  end;end;