Вызов методов родительского интерфейса

Файл objinterface.vih

objInterface abc;
  procedure Run;
end;

Файл test.vip

#include objInterface.vih

#define b vaAddStr(0,'
#define e ');

//=========================================================
vipInterface test implements abc;

interface test;

type TMyRecord = record
	a : longint;
	s : string;
end;

//---------------------------------------------------------
create view 

var i : word;

as select
  *

from
  x$files
;

//---------------------------------------------------------
screen sc;
buttons
  cmRunPre;

	<<
<.*.>
	>>
end;

//---------------------------------------------------------
procedure abc.Run;
{
	Message('А это сработал метод родительского интерфейса.');
};

//---------------------------------------------------------
handleEvent

cmRunPre:   
{
  #include macro.inc			

  #b												#e
  #b	Script ВызовМетода1; 					#e
  #b												#e
  #b	#include objinterface.vih				 #e
  #b	vipinterface test implements abc; 	 #e
  #b												#e
  #b	Begin									 #e
  #b												#e
  #b		message(''Из скрипта выводим его..'');  #e
  #b		message(i); 						 #e
  #b												#e
  #b		Message(''Это работает скрипт'');  #e
  #b		var Ex1 : Test; 					 #e
  #b		Ex1.Run; 							#e
  #b												#e
  #b	End.										#e

  var handle : longInt;

  Message('количество строк в скрипте = ' + vaStrCount(0));
  Message('Хендл скрипта = ' + (handle := vaCompile(0)));
  vaFreeSource(0);

  if handle = -1
	Message(vaErrorText)
  else
	begin
	var result : void;
	Message('Присваиваем переменной в логической таблице значение ' + (i := 10));
	vaExecute(handle, result);
	end;
};

end;
end.