#pas
type

THiAsmClass = class(TDebug)

private

public
  procedure doWork(var _Data:TData; index:word) ;
end; // <<<< =======

TRealArray = array [0..20] of real;  // <<<<  ====
TIntArray = array[0..20] of integer;