Прочитать три байта

procedure DoConvert(Bm:TBitmap);
  var cyc1,cyc2,lw,pp:LongWord;
 begin
  lw:=0;
  for cyc2:=0 to Bm.Height-1 do
   begin
    pp:=LongWord(Bm.ScanLine[cyc2]);
    for cyc1:=0 to Bm.Width-1 do
     begin
      move(Pointer(pp+cyc1*3)^,lw,3); //CopyMemory(@lw,Pointer(pp+cyc1*3),3);
      move(ArrRCol[lw],Pointer(pp+cyc1*3)^,3); //CopyMemory(Pointer(pp+cyc1*3),@ArrRCol[lw],3);
     end;
   end;
 end;

procedure Move(const Source; var Dest; Count: NativeInt);
{$IF defined(POSIX)}
begin
  if Count > 0 then
    memmove(Dest, Source, Count);
end;
{$ELSEIF defined(PUREPASCAL)}
{$POINTERMATH ON}
 
...
 
{$ELSE !PUREPASCAL}
{$IFDEF CPUX86}
asm
        CMP     EAX, EDX
        JE      @@Exit {Source = Dest}
        CMP     ECX, 32
        JA      @@LargeMove {Count > 32 or Count < 0}
        SUB     ECX, 8
        JG      @@SmallMove
@@TinyMove: {0..8 Byte Move}
{$IFDEF PIC}
        PUSH    EBX
        PUSH    EAX
        PUSH    ECX
        CALL    GetGOT
        POP     ECX
        MOV     EBX, EAX
        ADD     EBX, offset @@JumpTable+32
        MOV     ECX, [EBX+ECX*4]
        ADD     ECX, EAX
        POP     EAX
        POP     EBX
        JMP     ECX
{$ELSE}
        JMP     DWORD PTR [@@JumpTable+32+ECX*4]
{$ENDIF}
@@SmallMove: {9..32 Byte Move}
        FILD    QWORD PTR [EAX+ECX] {Load Last 8}
        FILD    QWORD PTR [EAX] {Load First 8}
        CMP     ECX, 8
        JLE     @@Small16
        FILD    QWORD PTR [EAX+8] {Load Second 8}
        CMP     ECX, 16
        JLE     @@Small24
        FILD    QWORD PTR [EAX+16] {Load Third 8}
        FISTP   QWORD PTR [EDX+16] {Save Third 8}
@@Small24:
        FISTP   QWORD PTR [EDX+8] {Save Second 8}
@@Small16:
        FISTP   QWORD PTR [EDX] {Save First 8}
        FISTP   QWORD PTR [EDX+ECX] {Save Last 8}
@@Exit:
        RET
        NOP {4-Byte Align JumpTable}
        NOP
@@JumpTable: {4-Byte Aligned}
        DD      @@Exit, @@M01, @@M02, @@M03, @@M04, @@M05, @@M06, @@M07, @@M08
@@LargeForwardMove1: {4-Byte Aligned}
        LEA     EDX, [EDX+ECX]
@@LargeForwardMove2:
        PUSH    EDX
        FILD    QWORD PTR [EAX] {First 8}
        LEA     EAX, [EAX+ECX-8]
        LEA     ECX, [ECX+EDX-8]
        FILD    QWORD PTR [EAX] {Last 8}
        PUSH    ECX
        NEG     ECX
        AND     EDX, -8 {8-Byte Align Writes}
        LEA     ECX, [ECX+EDX+8]
        POP     EDX
@FwdLoop:
        FILD    QWORD PTR [EAX+ECX]
        FISTP   QWORD PTR [EDX+ECX]
        ADD     ECX, 8
        JL      @FwdLoop
        FISTP   QWORD PTR [EDX] {Last 8}
        POP     EDX
        FISTP   QWORD PTR [EDX] {First 8}
        RET
@@LargeMove:
        JNG     @@LargeDone {Count < 0}
        CMP     EAX, EDX
        JA      @@LargeForwardMove2
        SUB     EDX, ECX
        JC      @@BackwardMove
        CMP     EAX, EDX
        JNA     @@LargeForwardMove1
@@BackwardMove:
        LEA     EDX, [EDX+ECX]
        SUB     ECX, 8 {Backward Move}
        PUSH    ECX
        FILD    QWORD PTR [EAX+ECX] {Last 8}
        FILD    QWORD PTR [EAX] {First 8}
        ADD     ECX, EDX
        AND     ECX, -8 {8-Byte Align Writes}
        SUB     ECX, EDX
@BwdLoop:
        FILD    QWORD PTR [EAX+ECX]
        FISTP   QWORD PTR [EDX+ECX]
        SUB     ECX, 8
        JG      @BwdLoop
        POP     ECX
        FISTP   QWORD PTR [EDX] {First 8}
        FISTP   QWORD PTR [EDX+ECX] {Last 8}
@@LargeDone:
        RET
@@M01:
        MOVZX   ECX, [EAX]
        MOV     [EDX], CL
        RET
@@M02:
        MOVZX   ECX, WORD PTR [EAX]
        MOV     [EDX], CX
        RET
@@M03:
        MOV     CX, [EAX]
        MOV     AL, [EAX+2]
        MOV     [EDX], CX
        MOV     [EDX+2], AL
        RET
@@M04:
        MOV     ECX, [EAX]
        MOV     [EDX], ECX
        RET
@@M05:
        MOV     ECX, [EAX]
        MOV     AL, [EAX+4]
        MOV     [EDX], ECX
        MOV     [EDX+4], AL
        RET
@@M06:
        MOV     ECX, [EAX]
        MOV     AX, [EAX+4]
        MOV     [EDX], ECX
        MOV     [EDX+4], AX
        RET
@@M07:
        MOV     ECX, [EAX]
        MOV     EAX, [EAX+3]
        MOV     [EDX], ECX
        MOV     [EDX+3], EAX
        RET
@@M08:
        FILD    QWORD PTR [EAX]
        FISTP   QWORD PTR [EDX]
end;