[Raegdan]

Всем добрый день.
Есть задача - сделать DNS прокси. Использую Indy 10.
Код получился такой:

Код:

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);
var
  Buf: TBytes;
  Bufsize: word;
begin
  IdUDPClient1.SendBuffer('192.168.1.1', 53, AData);

  SetLength(Buf, IdUDPClient1.BufferSize);
  if IdUDPClient1.Binding.Readable then Bufsize:=IdUDPClient1.Binding.Receive(Buf);
  SetLength(Buf, Bufsize);

  ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, Buf, Id_IPv4);
end;

(В данном случае 192.168.1.1 - реальный DNS на который пересылается запрос)

Код работает, но!
Как видно, пришлось сделать топорно:

сперва установить размер Buf в максимум,
потом получить в него данные (попутно получив размер данных),
а потом уже обрезать буфер до этого размера.

Связано это с тем, что я не нашёл способа узнать размер данных до выгрузки их в буфер.
Как можно причесать этот момент?