unit hiСomplexMath;

interface

uses Kol,Share,Debug;

type
THIСomplexMath = class(TDebug)
private
_Err:boolean;
Res:string;
Def:string;
AngleMode:real;

procedure SetDefault(Value:real);
procedure SetAngleMode(Value:byte);
public
_prop_OpType:byte;
_prop_Op1:string;
_prop_Op2:string;
_event_onResult:THI_Event;
_event_onError:THI_Event;
_data_Op1:THI_Event;
_data_Op2:THI_Event;

procedure _work_doOperation(var _Data:TData; Index:word);
procedure _work_doClear(var _Data:TData; Index:word);
procedure _work_doDefault(var _Data:TData; Index:word);
procedure _work_doAngleMode(var _Data:TData; Index:word);
procedure _var_Result(var _Data:TData; Index:word);
property _prop_Default:real write SetDefault;
property _prop_AngleMode:byte write SetAngleMode;
end;

implementation

uses hiMathParse;

const
digE = 2.718281828459045;
Pi2 = 6.283185307179686;

procedure THIСomplexMath.SetDefault;
begin
Def:=Value;
Res:=Def;
_Err:=false;
end;

procedure THIСomplexMath._work_doDefault;
begin
SetDefault(ToString(_Data));
end;

procedure THIСomplexMath._work_doAngleMode;
begin
SetAngleMode(ToInteger(_Data));
end;

procedure THIСomplexMath._work_doClear;
begin
Res:=Def;
_Err:=false;
end;

procedure THIСomplexMath._var_Result;
begin
if _Err then dtNull(_Data)
else dtString(_Data,Res);
end;

procedure THIСomplexMath._work_doOperation;
var

begin

end;


end.

"hiСomplexMath" заменить по всему коду на "HiAsmUnit"

Пытался из IC компонент сделать