BufSize := 2048;
  SetLength(Buf, BufSize);
  Bufsize := Length(Buf);