{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program Script3;
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ToolsAPI, CnWizUtils;
var
  View: IOTAEditView;
begin
  View := CnOtaGetTopMostEditView(nil);
  if (View <> nil) and (View.GetBlock <> nil) then
  begin
    View.GetBlock.UpperCase;
  end;
end.