#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug,windows;

type
 THiAsmClass = class(TDebug)
   private

   public
    procedure onKey(var dt:Tdata; index:word);
 end;

implementation

procedure THiAsmClass.onKey;


             begin 
               dc := GetDc(0); 
               MoveToEx(Dc, 0, 0, nil); 
               LineTo(Dc, 300, 300); 
               ReleaseDc(0, Dc); 
             end; 

end.