Out of memory

The follow code lead "out of memory"

procedure TForm1.Button1Click(Sender: TObject);
begin
  repeat
    Parallel.For(1, 10).Execute
      (
        procedure (AIndex: Integer)
        begin
        end
      );
  until False;
end;