procedure Copy16to32(Source,Dest:Pointer;WidthInPixels:Integer);stdcall;
asm
  pushad
  mov    esi,Source
  mov    edi,Dest
  mov    ecx,WidthInPixels
@dalsi:
  mov    ax,[esi]
  mov    bx,ax
  and    ax,$1F
  shl    ax,3
  or     ax,7
  shrd   edx,eax,8
  mov    ax,bx
  and    ax,$7E0
  shr    ax,3
  or     ax,3
  shrd   edx,eax,8
  mov    ax,bx
  and    ax,$F800
  shr    ax,8
  or     ax,7
  shrd   edx,eax,8
  shr    edx,8
  mov    [edi],edx
  add    esi,2
  add    edi,4
  dec    ecx
  jnz    @dalsi
  popad
end;

procedure Copy32to16;assembler;
asm
  pushad
  mov    esi,Source
  mov    edi,Dest
  mov    ecx,WidthInPixels
@dalsi:
  mov    eax,[esi]
  xor    edx,edx
  shrd   edx,eax,8
  shr    eax,2+8
  shrd   edx,eax,6
  shr    eax,3+6
  shrd   edx,eax,5
  shr    edx,16
  mov    [edi],dx
  add    esi,4
  add    edi,2
  dec    ecx
  jnz    @dalsi
  popad
end;