쩝~ 왜 꼭 4바이트 형태로 만들어야 된다고 생각하시는지요?
Byte든 Char 이든, 16진수이든 10진수이든 우리 눈에 보이는 차이일뿐이지 컴퓨터 입장에서는 똑같은 수입니다. 우리가 눈으로 해석만 다르게 할 뿐입니다.


var
A, B, D: string;
C1, C2, C3, C4: LongWord;
TCPData: array of Byte;
TCPDataSize: Integer;
TCPDataPos: Integer;
begin
A := 'ABCD';
B := '0131';
C1 := 4;
C2 := 50;
C3 := 21 * 1024 * 1024; // = $01500000
C4 := 511 * 1024 * 1024; // = $1FF000
D := 'variable string data';

// Calculate data size & allocate memory
TCPDataSize := Length(A) + Length(B) + SizeOf(C1) + SizeOf(C2) + SizeOf(C3) + SizeOf(C4) + Length(D);
SetLength(TCPData, TCPDataSize);

TCPDataPos := 0;
// Put A
Move(A[1], TCPData[TCPDataPos], Length(A));
Inc(TCPDataPos, Length(A));
// Put B
Move(B[1], TCPData[TCPDataPos], Length(B));
Inc(TCPDataPos, Length(B));
// Put C1
Move(C1, TCPData[TCPDataPos], SizeOf(C1));
Inc(TCPDataPos, SizeOf(C1));
// Put C2
Move(C2, TCPData[TCPDataPos], SizeOf(C2));
Inc(TCPDataPos, SizeOf(C2));
// Put C3
Move(C3, TCPData[TCPDataPos], SizeOf(C3));
Inc(TCPDataPos, SizeOf(C3));
// Put C4
Move(C4, TCPData[TCPDataPos], SizeOf(C4));
Inc(TCPDataPos, SizeOf(C4));
// Put D
Move(D[1], TCPData[TCPDataPos], Length(D));

// Send TCPData variable to Server
......
end;

최용일님 말씀처럼 너무 4바이트에 연연했나보네요 ^^
잘해겼됐습니다.