interface

uses kol, Share, Debug; 
 type  
  TCallbackProcess = packed record
    POPEDX: Byte;
    MOVEAX: Byte;
    SelfPtr: Pointer;
    PUSHEAX: Byte;
    PUSHEDX: Byte;
    JMP: Byte;
    JmpOffset: Integer;
  end;
type  
 ....
 Callback: TCallbackProcess;
   private   
......   
   public
.....
 	  constructor Create;
          destructor Destroy; override; 
   end; 

implementation 

constructor THiAsmClass.Create;
begin
  inherited  Create;
  Callback.POPEDX := $5A;
  Callback.MOVEAX := $B8;
  Callback.SelfPtr :=Self;
  Callback.PUSHEAX := $50;
  Callback.PUSHEDX := $52;
  Callback.JMP := $E9;
  Callback.JmpOffset := Integer(@TTHiAsmClass.doInit) - Integer(@Callback.JMP) - 5; 
  end;
  destructor THiAsmClass.Destroy;
begin
  inherited
end;

procedure THiAsmClass.doInit;  stdcall;

begin
//
end;

end.