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;