Из timagelist в image

ImageList1.GetBitmap(0,A1x1.Picture.Bitmap);

procedure TForm1.LogD(Sender : TObject);
begin
(*
004A30BC   55                     push    ebp
004A30BD   8BEC                   mov     ebp, esp
004A30BF   51                     push    ecx
004A30C0   53                     push    ebx
004A30C1   8BDA                   mov     ebx, edx
004A30C3   803D84664A0001         cmp     byte ptr [$004A6684], $01
004A30CA   7553                   jnz     004A311F
004A30CC   8D4DFE                 lea     ecx, [ebp-$02]
004A30CF   8D55FF                 lea     edx, [ebp-$01]
004A30D2   8BC3                   mov     eax, ebx
 
* Reference to: Unit1.Proc_0049D11C
|
004A30D4   E843A0FFFF             call    0049D11C
004A30D9   33C0                   xor     eax, eax
004A30DB   8A45FE                 mov     al, byte ptr [ebp-$02]
004A30DE   33D2                   xor     edx, edx
004A30E0   8A55FF                 mov     dl, byte ptr [ebp-$01]
004A30E3   8BCA                   mov     ecx, edx
004A30E5   C1E204                 shl     edx, $04
004A30E8   2BD1                   sub     edx, ecx
004A30EA   81C22C7C4A00           add     edx, $004A7C2C
004A30F0   C64402F000             mov     byte ptr [edx+eax-$10], $00
004A30F5   8BC3                   mov     eax, ebx
 
* Reference to class TImage
|
004A30F7   8B1598D74400           mov     edx, [$0044D798]
 
* Reference to: System..AsClass()
|
004A30FD   E842FFF5FF             call    00403044
004A3102   8B8028010000           mov     eax, [eax+$0128]
 
* Reference to: Graphics.TPicture.GetBitmap()
|
004A3108   E8176AF7FF             call    00419B24
 
* Reference to Bitmap
|
004A310D   8B15B87D4A00           mov     edx, [$004A7DB8]
004A3113   8B08                   mov     ecx, [eax]
004A3115   FF5108                 call    dword ptr [ecx+$08]
004A3118   C60588664A0001         mov     byte ptr [$004A6688], $01
004A311F   5B                     pop     ebx
004A3120   59                     pop     ecx
004A3121   5D                     pop     ebp
004A3122   C20400                 ret     $0004
 
*)
end;

object A1x1: TImage
      Left = 19
      Top = 29
      Width = 45
      Height = 30
      AutoSize = True
      OnClick = LogP
      OnContextPopup = LogD
    end
    object A1x2: TImage
      Left = 63
      Top = 29
      Width = 45
      Height = 30
      AutoSize = True
      OnClick = LogP
      OnContextPopup = LogD
    end
    object A1x3: TImage
      Left = 107
      Top = 29
      Width = 45
      Height = 30
      AutoSize = True
      OnClick = LogP
      OnContextPopup = LogD
    end
    object A1x4: TImage
      Left = 151
      Top = 29
      Width = 45
      Height = 30
      AutoSize = True
      OnClick = LogP
      OnContextPopup = LogD
    end
    object A1x5: TImage
      Left = 195
      Top = 29
      Width = 45
      Height = 30
      AutoSize = True
      OnClick = LogP
      OnContextPopup = LogD
    end