Indy 10 - Daten über UDPClient verschicken mit SendBuffer

[Tempdir]

Ich habs jetzt mal so gelöst bekommen, denke aber dass es ziemlich "unelegant" ist:

Delphi-Quellcode:

procedure TfrmMain.OnTimer1(Sender: TObject);
var
   DWA : array[0..1024] of DWORD;
   BA  : array[0..4095] of Byte absolute DWA;
   Test : TBytes;
begin

    //Länge von "Test" beschränken
    setLength(Test,20);

    //DWord-Array füllen
    DWA[0] := SFCODE;
    DWA[1] := 0;
    DWA[2] := 5;
    DWA[3] := 111;
    DWA[4] := EFCODE;

    for i := 0 to 19 do Test[i] := BA[i];

    //Daten verschicken
    UDPClient1.Sendbuffer('127.0.0.1',43334,Test);
end;