unit HiAsmUnit;

interface

uses KOL,Share,WinSock,Debug;

type
THiAsmClass = class(TDebug)
private
public
procedure Version(var dt:TData; idx:word);
end;

TBE_Version = record
...
...

implementation

procedure THiAsmClass.Version;
var vers: TBE_Version;
begin
beVersion(vers);
dtString(dt, vers.zHomePage);
end;

end.