菜鸟问题，如何将packed record 转换为字符串然后通过IdUDPServer1发出去

[banchen]

这个包有固定的4个十六进制包头$FFFFFFFF 再加上'TSource Engine Query'长度共25
但是用 Self.IdUDPServer1.SendBuffer发送不了十六进制数据，只能发string 有办法让他转换为字符串吗？

type
TCSQueryPackage= packed record  //size=25
    Head:Dword; //一般设置为$FFFFFFFF  /len=4
    Data:array [0..20] of Char; //
end;



procedure TForm1.Button1Click(Sender: TObject);
Var
 S : String;
 CSQuery:TCSQueryPackage;
begin
  CSQuery.Head:= $FFFFFFFF;
  StrCopy(@CSQuery.Data[0],'TSource Engine Query');
  Self.IdUDPServer1.SendBuffer('127.0.0.1',27015,@CSQuery,25);

end;

[etomahawk]

Self.IdUDPServer1.SendBuffer('127.0.0.1',27015,PChar(@CSQuery), SizeOf(TCSQueryPackage));