procedure ChannelTest;
var
  chan: Channel<integer>;
  producer: TThread;
  consumer: TThread;
begin
  chan := Channel<integer>.Create();

  producer := TThread.CreateAnonymousThread(
    procedure
    var
      data: TArray<integer>;
    begin
      data := [1, 2, 3, 4, 5, 6, 7, 8, 9, 10];

      chan <= data;

      chan.Close;
    end
  );


  consumer := TThread.CreateAnonymousThread(
    procedure
    var
      v: integer;
    begin
      while (v <= chan) do
      begin
        WriteLn(v);
      end;
    end
  );

  producer.Start;
  consumer.Start;
end;