Duda con TStream.Readbuffer

[miguel_e]

Hola, muchas gracias por tu repuesta, ya le di solucion al problema así

salu2
miguel_e

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  StrLen: Integer;
  PBuf: PChar;
  cadena : string;
begin
  StrLen := AData.Size;
  GetMem(PBuf, StrLen);
  try
    AData.ReadBuffer(PBuf^, StrLen);
    SetString(cadena, PBuf, StrLen);
  finally
    FreeMem(PBuf, StrLen);
  end;
  ShowMessage(cadena);
end;