#pas
 type 
               TForm1 = class(TForm) 
                 procedure FormCreate(Sender: TObject); 
               private 
                 { Private declarations } 
                 procedure WMSysCommand(var Msg: TWMSysCommand); 
                   message WM_SYSCOMMAND; 
               public 
                 { Public declarations } 
               end; 
 
             var 
               Form1: TForm1; 
 
             implementation 
 
             {$R *.DFM} 
 
             const 
               SC_MyMenuItem = WM_USER + 1; 
 
             procedure TForm1.FormCreate(Sender: TObject); 
             begin 
               AppendMenu(GetSystemMenu(Handle, FALSE), MF_SEPARATOR, 0, ''); 
               AppendMenu(GetSystemMenu(Handle, FALSE), 
                          MF_STRING, 
                          SC_MyMenuItem, 
                          'My Menu Item'); 
             end; 
 
             procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); 
             begin 
               if Msg.CmdType = SC_MyMenuItem then 
                 ShowMessage('Got the message') else 
                 inherited; 
             end; 

#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.