anchor.diff:  var
     converter: TTouchLayoutToVisualKeyboardConverter;
     FVK: TVisualKeyboard;
  -  FOldLayoutJS: string;
  -begin
  -  FOldLayoutJS := FSavedLayoutJS;
  -
  +  FJS: string;
  +begin
     if not FileExists(KVKFileName) then
     begin
       ShowMessage('This keyboard does not include an On Screen Keyboard file named '+KVKFileName);
  
positive.code:   end;
  
    try
      DoLoad;
    except
      on E:Exception do
      begin
        FSavedLayoutJS := FOldLayoutJS;
        ShowMessage(E.Message);
        Exit;
      end;
  
negative.code: begin
    FLastErrorOffset := -1;
    FLastError := '';
  
    if (FFileName <> '') and modWebHttpServer.AppSource.IsSourceRegistered(FFilename) then
      modWebHttpServer.AppSource.UnregisterSource(FFilename);
  
  //  FreeAndNil(FHTMLTempFilename);   // I4195
  //  FHTMLTempFilename := TTempFileManager.Get('.html');   // I4195
  