procedure TForm1.Button2Click(Sender: TObject);
var buf: array of byte;
begin
  SetLength(buf, 10);
  FillChar(buf, Length(buf), #0);
  //SetLength(buf, 0);
end;