UIGroupInsert(IMIG_MSGTB , MSG_GRUP, 0, 0, 'Poczta', IDI_TOOLBAR);
UIActionAdd(MSG_GRUP, TOOL_MSG_BAR, 0, 'Temat', IDI_TEMAT);
UIActionAdd(MSG_GRUP, ZALACZNIK, 0, 'Zalącznik', IDI_ZALACZNIK);
UIActionAdd(MSG_GRUP, IMIA_EXAMPLE_BUTTON, 0, 'Sprawdź pocztę', IDI_ODBIERZ);

if anBase.code = ACTN_CREATE then
        begin
           ai:= sUIActionInfoB(IMIG_MSGTB, MSG_GRUP);
           ai.act := anBase.act;
           ai.mask := UIAIM_ALL;
           if GETCNTI(anBase.act.cnt,CNT_NET)=NET_EMAIL then begin
           ai.status := ACTS_HIDDEN;
           ai.statusMask := ACTS_HIDDEN;
           ICMessage(IMI_ACTION_SET , Integer(@ai));
           end;
        end;

        ON_OFF: if GETINT(CFG_ON_OFF) = 0 then begin
           Ctrl.DTsetInt(DTCFG, 0, CFG_ON_OFF, 1);
           ai:= sUIActionInfoB(IMIG_PLUGINS, ON_OFF);
           ai.act := an.act;
           ai.mask := UIAIM_ICO;
           ai.p1 := $1D;
           ICMessage(IMI_ACTION_SET , Integer(@ai));
        end else begin
          Ctrl.DTsetInt(DTCFG, 0, CFG_ON_OFF, 0);
          ai:= sUIActionInfoB(IMIG_PLUGINS, ON_OFF);
          ai.act := an.act;
          ai.mask := UIAIM_ICO;
          ai.p1 := 0;
          ICMessage(IMI_ACTION_SET , Integer(@ai));
        end;

UIGroupInsert(IMIG_MSGTB , MSG_GRUP, 0, ACTR_INIT, 'Poczta', IDI_TOOLBAR);
// oraz na wszelki wypadek
UIActionAdd(MSG_GRUP, TOOL_MSG_BAR, ACTR_INIT, 'Temat', IDI_TEMAT);
UIActionAdd(MSG_GRUP, ZALACZNIK, ACTR_INIT, 'Zalącznik', IDI_ZALACZNIK);
UIActionAdd(MSG_GRUP, IMIA_EXAMPLE_BUTTON, ACTR_INIT, 'Sprawdź pocztę', IDI_ODBIERZ);

function ActionProc(const anBase: sUIActionNotify_basePtr): Integer;
var...
begin
  if ((anBase.act.id and IMIB_) = IMIB_CFG) then
    Result := ActionCfgProc(anBase)
  else
    begin
            case (anBase.act.id) of
        IMIG_MSGWND:
        if anBase.code = ACTN_CREATE then
        begin
...

  if ((anBase.act.id and IMIB_) = IMIB_CFG) then
    Result := ActionCfgProc(anBase)
  else
    begin
      case (anBase.act.id) of
        MSG_GRUP:
        begin
        if (anBase.code = ACTN_CREATE) then
          begin
          tu reszte dajesz

function IStart():Integer;
var
nfo :sUIActionInfo;
begin
   nfo.s_size := SizeOf(nfo);
   nfo.mask := UIAIM_ALL;
   nfo.act.cnt := AC_CURRENT;
   GetMem(nfo.txt, 100);
   nfo.txtSize := 99;
   nfo.act.parent := IMIG_MSGWND;
   nfo.act.id := Konnekt_UI_ACT_msg_ctrlsend;
   UIActionGet(nfo);

   cnt_info_prevOwner := ICMessage( IMI_ACTION_GETOWNER, Integer(@nfo.act));
    if( cnt_info_prevOwner  = 0 ) then
        cnt_info_prevOwner := ICMessage( IMC_PLUG_ID, 0 );
    ICMessage( IMI_ACTION_REMOVE , Integer(@nfo.act));
    ICMessage( IMI_ACTION , Integer(@nfo) );
    FreeMem(nfo.txt);    

Konnekt_UI_ACT_msg_ctrlsend:
          begin
          if (anBase.code = ACTN_CREATEWINDOW)  then
            begin
            Result := IMessageDirect( IM_UIACTION , cnt_info_prevOwner, Integer(anBase));
            an := sUIActionNotify_createWindowPtr(anBase);
            jakasprocka(an.hwnd, an.hwndparent);
            end
          else
            Result := IMessageDirect( IM_UIACTION , cnt_info_prevOwner, Integer(anBase));
          end;

        251:
          begin
          if (anBase.code = ACTN_CREATEWINDOW)  then
            begin
            Result := IMessageDirect( IM_UIACTION , cnt_info_prevOwner, Integer(anBase));
            wnd := sUIActionNotify_CreateWindowPtr(anBase); //anBase jest wskazniekiem na sUIActionNotify_CreateWindow?
            SetProp(wnd.hwndparent,'Subclass',SetWindowLong(wnd.hwndparent,GWL_WNDPROC,integer(@WndProc)));
            end
          else
            begin
            Result := IMessageDirect( IM_UIACTION , cnt_info_prevOwner, Integer(anBase));
            end;
          end;

type
  sUIActionNotify_createWindowPtr = ^sUIActionNotify_createWindow;
  sUIActionNotify_createWindow = packed record
   s_size: Word;
   act: sUIAction;
   code: Cardinal;
   reserved: Integer;   //!! dotąd odzedziczone z sUIActionNotify_base
   hwnd: HWND;  ///< Tutaj MUSIMY ustawić uchwyt do naszego okna.
   hwndParent: HWND; ///< Uchwyt okna, do którego mamy się podłączyć.
   x,         ///< Pozycja X na której trzeba wstawić okno. TRZEBA tą wartość zwiększyć o szerokość utworzonego okna!
   y: Integer;///< Pozycja Y na której trzeba wstawić okno. TRZEBA tą wartość zwiększyć o wysokość utworzonego okna!
   status: Byte; ///< Kopia wartości \a status akcji
   txt: pchar; ///< Kopia wartości \a txt akcji
   flags: Byte; ///< Flagi - Na razie 0.
   font: HFONT;     ///< Domyślna czcionka używana przez konnekta.
   fontBold: HFONT; ///< Ta sama czcionka, tyle że pogrubiona.
   w,           ///< Sugerowana szerokość okna
   h: Integer;  ///< Sugerowana wysokość okna
end;

function WndProc(hWnd: HWND;
  message: UINT;
  wParam: WPARAM;
  lParam: LPARAM): LRESULT; stdcall;
var
PrevProc: Pointer;
begin
case message of
WM_ACTIVATE: IMLOG('ACTIV',[]);
WM_MOVE: IMLOG('MOVE',[]);
end;
PrevProc := Pointer(GetProp(hWnd, 'Subclass'));
result := CallWindowProc(PrevProc,hwnd,message,wParam,lParam);
end;

sUIActionNotify_createWindow = record
    sm: sUIActionNotify_base;
    hWnd: Cardinal;
    hwndParent: Cardinal;
    x: Integer;   ///< Pozycja X na której trzeba wstawić okno. TRZEBA tą wartość zwiększyć o szerokość utworzonego okna!
    y: Integer;///< Pozycja Y na której trzeba wstawić okno. TRZEBA tą wartość zwiększyć o wysokość utworzonego okna!
    Status: Cardinal; ///< Kopia wartości \a status akcji
    txt: Pchar;
    flags :Cardinal;
    font :Cardinal;
    fontBold :Cardinal;
    w :Cardinal;
    h :Cardinal;
  end;