[helper999999]

Помогите не получается вставить картинку из ресурса.

Код:

function MessageMainProcess(Handle: HWND; Msg: UINT; WParam: Integer; LParam: Integer): Integer;stdcall;
begin
  Result:=0;
  case msg of
    WM_CREATE:
      begin
      { ...}
      end;
    WM_PAINT:
     begin

     bmp:= LoadGIFRes(hInstance, 'button_next', 'GIF');//Загрузка *.RES
 SelectObject(hdcMem, bmp);
 BitBlt(a, 0, 0, 100, 100, hdcMem, 100, 100, SRCCOPY);
   
     end;

    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Exit;
      end;
  end;
  Result:=DefWindowProc(Handle,Msg,WParam,LParam);
end;

procedure LoadGIFRes она конвертирует, работает как надо но изображение не обрисовывается.