Как из потока передать в переменную типа Byte?

var Arr: Array of Array of Byte;
    c: Array of Integer;
begin
  Arr[0]:=тут первые 100000 байт из потока;
  c[0]:=номер куска из первых 100000 байт;
  Arr[1]:=тут оставшиеся 54782 байт из потока.
  c[1]:=номер куска из оставшихся 54782 байт;
end;

procedure TForm1.Button3Click(Sender: TObject);
var FS,FD: TFileStream;
    fm, i: integer;
    Arr: array of Array of Byte;
    cnt: Integer;
begin
  FS:=TFileStream.Create('e:/1.exe',fmOpenRead); //открываем поток исходный
  i:=0; FS.Position:=i; //устанавливаем позицию на 0
  cnt:=100000; //по сколько читать из потока
  if FileExists('e:/2.exe')=False then fm:=fmCreate else fm:=fmOpenWrite; //проверяем файл на существование
  FD:=TFileStream.Create('e:/2.exe',fm); //создаем поток целевой
  while i<FS.Size do
  begin
    FS.Position:=i; //смещаем позицию исходника на следующий кусок
    if i+cnt>FS.Size then cnt:=FS.Size-i;
    FD.CopyFrom(FS,cnt); //читаем очередной кусок из исходгного потока в целевой
    i:=i+cnt; //увеличиваем счетчик считанных байт из потока
    Memo1.Lines.Add('i:='+IntToStr(i));
  end;
  //ServerSocket1.Socket.Connections[0].SendBuf();
  FS.Destroy;
  FD.Destroy;
end;

begin
  Arr[0]:=тут первые 100000 байт из потока;
  c[0]:=номер куска из первых 100000 байт;
  Arr[1]:=тут оставшиеся 54782 байт из потока.
  c[1]:=номер куска из оставшихся 54782 байт;
end;

begin
  Arr[0]:=тут первые 3 байт из потока;
  c[0]:=номер куска из первых 3 байт;
  Arr[1]:=тут оставшийся 1 байт из потока.
  c[1]:=номер куска из оставшегося 1 байта;
end;

procedure TForm1.Button3Click(Sender: TObject);
var FS: TFileStream;
    Arr: Array of String;
    cnt: Integer;
begin
  FS:=TFileStream.Create('e:/1.txt',fmOpenRead);
  Memo1.Lines.Add('Size:='+IntToStr(FS.Size));
  i:=0; //начальное смещение
  cnt:=7; //по сколько читать из потока
  SetLength(Arr,0);
  repeat
    FS.Position:=i;
    if cnt+i>FS.Size then cnt:=FS.Size-i;
    SetLength(Arr,Length(Arr)+1);
    SetLength(Arr[High(Arr)],cnt);
    FS.ReadBuffer(Pointer(Arr[High(Arr)])^,cnt);
    Memo1.Lines.Add('Arr['+IntToStr(High(Arr))+']:='+Arr[High(Arr)]);
    i:=i+cnt;
  until FS.Position>=FS.Size;
  FS.Free;
end;