[-] Исправления в KOL: WStrRScan - код скопирован из StrRScan. Исходная версия WStrRScan работала некорректно в случае отсутствия искомого образца.
[-] Исправления в обработчике WM_NCDESTROY для корректного уничтожения меню (не мог быть разрушен после разрушения окна-владельца).
[*] Улучшена функция ClipboardHasText - удален ненужный код.
[+] Метод TBitmap.CopyToClipboard переименован в CopyToClipboardAsDIB, добавлена другая версия CopyToClipboard, использующая формат CF_BITMAP (существенно более короткий код).

Текущий дамп памяти из 256 байт начиная с адреса 7EF43120:

procedure Run( var AppletCtl: PControl );
asm
//----- if  AppletCtl = nil then Exit;
       TEST      EAX, EAX
       JZ        @@exit
       PUSH      EBX
       XCHG      EBX, EAX

//----- AppletRunning := TRUE;
       INC       [AppletRunning]

//----- Applet := AppletCtl;
       MOV       EAX, [EBX]
       MOV       [Applet], EAX

//----- AppletCtl.CreateWindow;
       CALL      CallTControlCreateWindow

//----- WHILE NOT AppletTerminated DO
@@loop: CMP       [AppletTerminated], 0
       JNZ       @@end_loop

//----- WaitMessage;
       CALL      WaitMessage

//----- AppletCtl.ProcessMessages;
       MOV       EAX, [EBX]
       CALL      TControl.ProcessMessages

       {$IFDEF   USE_OnIdle}
//----- ProcessIdle(AppletCtl);
       MOV       EAX, [EBX]
       CALL      [ProcessIdle]
       {$ENDIF}

       JMP       @@loop
@@end_loop:

       {$IFDEF LET_MENU_LEAK}
       MOV       ECX, [EBX]
       XCHG      EAX, EBX
       POP       EBX
       JECXZ     @@exit
       {$ELSE}
       POP       EBX
       LEA       EAX, [Applet]
       CMP       [EAX], 0
       JZ        @@exit
       {$ENDIF}
       CALL      TerminateExecution
@@exit:
end;

procedure Run( var AppletCtl: PControl );
asm
//----- if  AppletCtl = nil then Exit;
       TEST      EAX, EAX
       JZ        @@exit
       PUSH      EBX
       XCHG      EBX, EAX

//----- AppletRunning := TRUE;
       INC       [AppletRunning]

//----- Applet := AppletCtl;
       MOV       EAX, [EBX]
       MOV       [Applet], EAX

//----- AppletCtl.CreateWindow;
       CALL      CallTControlCreateWindow

//----- WHILE NOT AppletTerminated DO
@@loop: CMP       [AppletTerminated], 0
       JNZ       @@end_loop

//----- WaitMessage;
       CALL      WaitMessage

//----- AppletCtl.ProcessMessages;
       MOV       EAX, [EBX]
       CALL      TControl.ProcessMessages

       {$IFDEF   USE_OnIdle}
//----- ProcessIdle(AppletCtl);
       MOV       EAX, [EBX]
       CALL      [ProcessIdle]
       {$ENDIF}

       JMP       @@loop
@@end_loop:

       {$IFDEF LET_MENU_LEAK}
       MOV       ECX, [EBX]
       XCHG      EAX, EBX
       POP       EBX
       JECXZ     @@exit
       {$ELSE}
       POP       EBX
       LEA       EAX, [Applet]
       CMP       [EAX], 0
       JZ        @@exit
       {$ENDIF}
       CALL      TerminateExecution
@@exit:
end;

procedure TerminateExecution( var AppletCtl: PControl );
asm
         PUSH EBX
         PUSH ESI
         MOV  BX, $0100
         XCHG BX, word ptr [AppletRunning]
         XOR  ECX, ECX
         XCHG ECX, [Applet]
         JECXZ @@exit

         PUSH EAX

         {$IFDEF LET_MENU_LEAK} // Was IFNDEF !!!
         XCHG EAX, ECX
         MOV  ESI, EAX
         CALL TObj.RefInc
         {$ENDIF}

         TEST BH, BH
         JNZ  @@closed

         MOV  EAX, ESI
         CALL TControl.ProcessMessages
         PUSH 0
         PUSH 0
         PUSH WM_CLOSE
         PUSH ESI
         CALL TControl.Perform
@@closed:
         POP  EAX
         XOR  ECX, ECX
         MOV  dword ptr [EAX], ECX
         {$IFDEF LET_MENU_LEAK}
              MOV  EAX, ESI
              CALL TObj.RefDec
              XCHG EAX, ESI
              CALL TObj.RefDec
         {$ELSE}
              PUSH [ESI].TControl.FHandle
              CALL Windows.DestroyWindow
         {$ENDIF}
@@exit:
         POP  ESI
         POP  EBX
end;

procedure TerminateExecution( var AppletCtl: PControl );
asm
         PUSH EBX
         PUSH ESI
         MOV  BX, $0100
         XCHG BX, word ptr [AppletRunning]
         XOR  ECX, ECX
         XCHG ECX, [Applet]
         JECXZ @@exit

         PUSH EAX

         {$IFDEF LET_MENU_LEAK} // Was IFNDEF !!!
         XCHG EAX, ECX
         MOV  ESI, EAX
         CALL TObj.RefInc
         {$ENDIF}

         TEST BH, BH
         JNZ  @@closed

         MOV  EAX, ESI
         CALL TControl.ProcessMessages
         PUSH 0
         PUSH 0
         PUSH WM_CLOSE
         PUSH ESI
         CALL TControl.Perform
@@closed:
         POP  EAX
         XOR  ECX, ECX
         MOV  dword ptr [EAX], ECX
         {$IFDEF LET_MENU_LEAK}
              MOV  EAX, ESI
              CALL TObj.RefDec
              XCHG EAX, ESI
              CALL TObj.RefDec
         {$ELSE}
              PUSH [ESI].TControl.FHandle
              CALL Windows.DestroyWindow
         {$ENDIF}
@@exit:
         POP  ESI
         POP  EBX
end;

procedure Run( var AppletCtl: PControl );
asm
//----- if  AppletCtl = nil then Exit;
      TEST      EAX, EAX
      JZ        @@exit
      PUSH      EBX
      XCHG      EBX, EAX

//----- AppletRunning := TRUE;
      INC       [AppletRunning]

//----- Applet := AppletCtl;
      MOV       EAX, [EBX]
      MOV       [Applet], EAX

//----- AppletCtl.CreateWindow;
      CALL      CallTControlCreateWindow

//----- WHILE NOT AppletTerminated DO
@@loop: CMP       [AppletTerminated], 0
      JNZ       @@end_loop

//----- WaitMessage;
      CALL      WaitMessage

//----- AppletCtl.ProcessMessages;
      MOV       EAX, [EBX]
      CALL      TControl.ProcessMessages

      {$IFDEF   USE_OnIdle}
//----- ProcessIdle(AppletCtl);
      MOV       EAX, [EBX]
      CALL      [ProcessIdle]
      {$ENDIF}

      JMP       @@loop
@@end_loop:

      {$IFDEF LET_MENU_LEAK}
      MOV       ECX, [EBX]
      XCHG      EAX, EBX
      POP       EBX
      JECXZ     @@exit
      {$ELSE}
      POP       EBX
      LEA       EAX, [Applet]
      CMP       [EAX], 0         <-ОШИБКА!!!!
      JZ        @@exit
      {$ENDIF}
      CALL      TerminateExecution
@@exit:
end;

procedure Run( var AppletCtl: PControl );
asm
//----- if  AppletCtl = nil then Exit;
      TEST      EAX, EAX
      JZ        @@exit
      PUSH      EBX
      XCHG      EBX, EAX

//----- AppletRunning := TRUE;
      INC       [AppletRunning]

//----- Applet := AppletCtl;
      MOV       EAX, [EBX]
      MOV       [Applet], EAX

//----- AppletCtl.CreateWindow;
      CALL      CallTControlCreateWindow

//----- WHILE NOT AppletTerminated DO
@@loop: CMP       [AppletTerminated], 0
      JNZ       @@end_loop

//----- WaitMessage;
      CALL      WaitMessage

//----- AppletCtl.ProcessMessages;
      MOV       EAX, [EBX]
      CALL      TControl.ProcessMessages

      {$IFDEF   USE_OnIdle}
//----- ProcessIdle(AppletCtl);
      MOV       EAX, [EBX]
      CALL      [ProcessIdle]
      {$ENDIF}

      JMP       @@loop
@@end_loop:

      {$IFDEF LET_MENU_LEAK}
      MOV       ECX, [EBX]
      XCHG      EAX, EBX
      POP       EBX
      JECXZ     @@exit
      {$ELSE}
      POP       EBX
      LEA       EAX, [Applet]
      CMP       [EAX], 0         <-ОШИБКА!!!!
      JZ        @@exit
      {$ENDIF}
      CALL      TerminateExecution
@@exit:
end;

destructor TMenu.Destroy;
var Next, Prnt: PMenu;
   {$IFNDEF LET_MENU_LEAK}
   Save_Ref: Integer;
   {$ENDIF}
begin
 {$IFDEF DEBUG_MENU_DESTROY}
 LogFileOutput( GetStartDir + 'TMenu.Destroy.txt',
   Int2Hex( DWORD( @ Self ), 6 ) + ' ' + Int2Str( RefCount ) );
 {$ENDIF}
 if Count > 0 then
 begin
   FMenuItems.ReleaseObjects;
   FMenuItems := NewList;
 end;
 if FParentMenu <> nil then
 begin
   {$IFNDEF LET_MENU_LEAK}
   Save_Ref := Self.fRefCount; //** Очень грязный хак, конечно. Цель: предотвратить
   Self.fRefCount := 17;       //   попытку повторного уничтожения этого объекта меню.
   {$ENDIF}
       Prnt := FParentMenu;
       Next := Prnt.RemoveSubMenu( FId );
       FParentMenu := nil;
       Prnt.FMenuItems.Remove( @ Self );
   {$IFNDEF LET_MENU_LEAK}
       Self.fRefCount := Save_Ref; //** Можно было бы и не восстанавливать.
   {$ELSE}
       if Next = nil then Exit;    //** Пришлось закомментарить. Вызывало утечку.
   {$ENDIF}
 end;
  if (FControl <> nil) and (FControl.fMenu = FHandle) and (FHandle <> 0) then
  begin
    if  {$IFDEF USE_FLAGS} not (G2_Destroying in FControl.fFlagsG2)
        {$ELSE} not FControl.fDestroying {$ENDIF} then //!!!fix by Galkov
    begin
      Windows.SetMenu( FControl.fHandle, 0 );
      // this removes main menu from window, but does not destroy it
    end;
    FControl.fMenu := 0;
    Next := PMenu( FControl.fMenuObj );
    while Next <> nil  do
    begin
      if Next.fNextMenu = @Self then
      begin
        Next.fNextMenu := fNextMenu;
        break;
      end;
      Next := Next.fNextMenu;
    end;
  end;
  Next := fNextMenu;
  if FBitmap <> 0 then
    Bitmap := 0;
  if FHandle <> 0 then
  begin
    //if not
    DestroyMenu( FHandle )
    // then LogFileOutput( GetStartDir + 'err.log.txt', SysErrorMessage( GetLastError ) )
    ;
  end;
  FCaption := '';
  FMenuItems.Free;
  Next.Free;
  inherited;
  // all later created (popup) menus (of the same control)
  // are destroyed too
end;

destructor TMenu.Destroy;
var Next, Prnt: PMenu;
   {$IFNDEF LET_MENU_LEAK}
   Save_Ref: Integer;
   {$ENDIF}
begin
 {$IFDEF DEBUG_MENU_DESTROY}
 LogFileOutput( GetStartDir + 'TMenu.Destroy.txt',
   Int2Hex( DWORD( @ Self ), 6 ) + ' ' + Int2Str( RefCount ) );
 {$ENDIF}
 if Count > 0 then
 begin
   FMenuItems.ReleaseObjects;
   FMenuItems := NewList;
 end;
 if FParentMenu <> nil then
 begin
   {$IFNDEF LET_MENU_LEAK}
   Save_Ref := Self.fRefCount; //** Очень грязный хак, конечно. Цель: предотвратить
   Self.fRefCount := 17;       //   попытку повторного уничтожения этого объекта меню.
   {$ENDIF}
       Prnt := FParentMenu;
       Next := Prnt.RemoveSubMenu( FId );
       FParentMenu := nil;
       Prnt.FMenuItems.Remove( @ Self );
   {$IFNDEF LET_MENU_LEAK}
       Self.fRefCount := Save_Ref; //** Можно было бы и не восстанавливать.
   {$ELSE}
       if Next = nil then Exit;    //** Пришлось закомментарить. Вызывало утечку.
   {$ENDIF}
 end;
  if (FControl <> nil) and (FControl.fMenu = FHandle) and (FHandle <> 0) then
  begin
    if  {$IFDEF USE_FLAGS} not (G2_Destroying in FControl.fFlagsG2)
        {$ELSE} not FControl.fDestroying {$ENDIF} then //!!!fix by Galkov
    begin
      Windows.SetMenu( FControl.fHandle, 0 );
      // this removes main menu from window, but does not destroy it
    end;
    FControl.fMenu := 0;
    Next := PMenu( FControl.fMenuObj );
    while Next <> nil  do
    begin
      if Next.fNextMenu = @Self then
      begin
        Next.fNextMenu := fNextMenu;
        break;
      end;
      Next := Next.fNextMenu;
    end;
  end;
  Next := fNextMenu;
  if FBitmap <> 0 then
    Bitmap := 0;
  if FHandle <> 0 then
  begin
    //if not
    DestroyMenu( FHandle )
    // then LogFileOutput( GetStartDir + 'err.log.txt', SysErrorMessage( GetLastError ) )
    ;
  end;
  FCaption := '';
  FMenuItems.Free;
  Next.Free;
  inherited;
  // all later created (popup) menus (of the same control)
  // are destroyed too
end;

function WinVerShort: TWindowsVersion;
begin
 case LoWord(GetVersion) of
   $0005: Result := wvY2K;
   $0105: Result := wvXP;
   $0205: Result := wvServer2003;
   $0006: Result := wvVista;
   $0106: Result := wvSeven;
   $0206: Result := wvEight;
   $0306: Result := wvEight_1;
   $000A: Result := wvTen;
   else
     Result := wvNT;
 end;
end;

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
   <assemblyIdentity
       type="win32"
       name="DelphiApplication"
       version="1.0.0.0"
       processorArchitecture="*"
   />
   <description> my foo exe </description>
   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
       <security>
           <requestedPrivileges>
               <requestedExecutionLevel
                   level="asInvoker"
                   uiAccess="false"
               />
           </requestedPrivileges>
       </security>
   </trustInfo>
   <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
       <application>
           <!-- Windows 10 -->
           <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
           <!-- Windows 8.1 -->
           <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
           <!-- Windows Vista -->
           <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
           <!-- Windows 7 -->
           <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
           <!-- Windows 8 -->
           <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
       </application>
   </compatibility>
</assembly>

   Form.Font.ReleaseHandle;
   Form.Font.AssignHandle(GetStockObject(DEFAULT_GUI_FONT));

function StrScan(Str: PAnsiChar; Chr: AnsiChar): PAnsiChar;
begin
 Result := nil;
 if Str = nil then Exit;
 
 while Str^ <> #0 do
 begin
   if Str^ = Chr then
   begin
     Result := Str;
     Break;
   end;
   Inc(Str);
 end;
end;

function StrScan(Str: PAnsiChar; Chr: AnsiChar): PAnsiChar;
begin
   while Str^ <> Chr do
   begin
       if Str^ = #0 then break;
       inc(Str);
   end;
   Result := Str;
end;

function StrCopy( Dest, Source: PAnsiChar ): PAnsiChar;
var L: Integer;
begin
   L := StrLen(Source);
   Move(Source^, Dest^, L+1);
   Result := Dest;
end;

L := Length(S2);
if L = 0 then Exit;
SetLength(S, 100000 * L);
i := 1;
while i <= 100000 do
begin
 Move(S2[1], S[i], L);
 Inc(i, L);
end;

SomeDir/SomeFile.dat 12345

procedure TForm1.KOLForm1BeforeCreateWindow(Sender: PObj);
begin
 DeleteObject(Form.Font.ReleaseHandle);
 Form.Font.Assign(NewFont);
end;

// для unicode - vswprintf_s

function vsprintf_s(Buffer: PChar; BufferSize: integer; const Fmt: PChar; Args: pointer): integer; cdecl; external 'msvcrt.dll';

function Format(const Fmt: string; Params: array of const): string;
var
 VA,Tmp: PByte;
 Buffer: array[0..4095] of Char;
 I,A,Size: integer;
 D: double;
begin
 FillChar(Buffer,sizeof(Buffer),0);
 if High(Params)>=0 then
   begin
     Size:=0;
     // Считаем размер буфера для аргументов
     for I:=0 to High(Params) do
       with Params[I] do
         case VType of
           vtInteger: Inc(Size,sizeof(Integer));
           vtChar: Inc(Size,sizeof(Char));
           vtWideChar: Inc(Size,sizeof(WideChar));
           vtPChar,vtAnsiString,vtPWideChar,vtWideString,vtPointer: Inc(Size,sizeof(Pointer));
           vtExtended: Inc(Size,sizeof(Double));
         end;
     GetMem(VA,Size);
     FillChar(VA^,Size,0);
     Tmp:=VA;
     for I:=0 to High(Params) do
       begin
         A:=sizeof(Pointer);
         with Params[I] do
           case VType of
             vtInteger:
               begin
                 A:=sizeof(Integer);
                 PInteger(Tmp)^:=VInteger;
               end;
             vtChar:
               begin
                 A:=sizeof(Char);
                 PChar(Tmp)^:=VChar;
               end;
             vtPChar: PPointer(Tmp)^:=VPChar;
             vtAnsiString: PPointer(Tmp)^:=VString;
             vtWideChar:
               begin
                 A:=sizeof(WideChar);
                 PWideChar(Tmp)^:=VWideChar;
               end;
             vtPWideChar: PPointer(Tmp)^:=VPWideChar;
             vtWideString: PPointer(Tmp)^:=VWideString;
             vtExtended:
               begin
                 A:=sizeof(Double);
                 D:=VExtended^;
                 PDouble(Tmp)^:=D;
               end;
           end;
         Inc(Tmp,A);
       end;
     I:=vsprintf_s(@Buffer[0],4096,PChar(Fmt),VA);
     if I>0 then
       begin
         SetLength(Result,I);
         Result:=Buffer;
       end;
     if VA<>nil then FreeMem(VA);
   end;
end;