1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Type
  TFileDaten = Record
                     Word_1     : word;
                     Word_2     : word;
                     Small_1    : Smallint; 
                     Small_2    : Smallint; 
                end;            

var
  fd: TFileDaten; 
  SendBuffer: array[1..8] of Char;					

1:
2:
3:
4:
5:
6:
7:
8:

SendBuffer[1] := char(fd.Word_1 shr 8);
SendBuffer[2] := char(fd.Word_1);
SendBuffer[3] := char(fd.Word_2 shr 8);
SendBuffer[4] := char(fd.Word_2);
SendBuffer[5] := char(fd.Small_1 shr 8);
SendBuffer[6] := char(fd.Small_1);
SendBuffer[7] := char(fd.Small_2 shr 8);
SendBuffer[8] := char(fd.Small_2);					

1:

CopyMemory(@SendBuffer, @fd, SizeOf(TFileDate);					

1:
2:
3:
4:

procedure SwapWord(var w: Word);
begin
  w := ((w and $00FF) shl 8) or ((w shr 8) and $00FF)
end;